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KAPITEL 1:EINLEITUNG 



ALLGEMEINE INFORMATION 



Da die Floppy VC-1540 und die Floppy VC-1541 nahezu identisch sind, 
verwendet dieses Handbuch nur die Bezeichnung Floppy Disk VC-1541. 
Auch konnen der VC-20 oder der C-64 an die Floppy Disk VC-1541 an- 
geschlossen werden. In diesem Handbuch wird als Rechner nur der 
C-64 angesprochen , gleiches gilt jeweils auch Fur den VC-20. 

Durch den Erwerb der VC-1541 Single-Floppy haben Sie die Leistungs- 
fahigkeit Ihres VC-Systems wesentlich erhoht. Um dieses System 
voll ausnutzen zu konnen, sollten Sie die Programmiersprache BASIC 
hinreichend beherrschen und mit der Bedienung der C-64-Zentral- 
einheit vertraut sein. 



GERATEBESCHREIBUNG 

Die VC-1541 ist ein intelligentes Einzeldiskettenlaufwerk, das zun 
Abspeichern groBer Datenmengen geeignet ist. Es besteht zur 
Hauptsache aus einem elektronisch geregelten Antrieb, Schreib- 
Lesekopf mit Steuerung und der Elektronik, die die Schreib- und 
Leseroutinen uberwacht. Das Laufwerk wird an den seriellen Bus des 
C-64 angeschlossen, der auch von Commodore-Druckern benutzt wird. 
Da es sich bei der VC-1541 um ein "intelligentes " Peripheriegerat 
handelt, wind beim Betrieb der Floppy kein Arbeitsspeicher in der 
C-64-Zentraleinheit belegt. 



Frontplatte 

Auf der Frontplatte des Gerats befindet sich ein Schlitz, in den 
die Diskette eingefuhrt wird. Durch das Herunterdriicken einer am 
Schlitz angebrachten Klappe Oder eines Knebels wird die Diskette 
an die Laufwerksachse angekoppelt. 

Weiterhin sind zwei LEDS (LED = Light -Emitting-Diode = Leuchtdiode) 
auf der Frontplatte angebracht. Die griine LED auf der linken Seite 
zeigt an, daB das Gerat eingeschaltet ist. Die rote LED unter dem 
Diskettenschlitz leuchtet kontinuierlich, wenn die Floppy aktiv ist 
und blinkt bei Fehlfunktion. 



Ruckseite 

Auf der Ruckseite der Floppy befinden sich zwei parallel geschal- 
tete, serielle Ein/Ausgange. Weiterhin ist dort der Netzschalter 
und die Sicherung angebracht. 



Die Diskette 

Als Diskette (auch: Floppy Disk o.a.) wird die Standard 5-1/4-Zoll 
Diskette verwendet. Es miissen Disketten verwendet werden, die das 
SOFT-SEKTOR-FORMAT aufweisen. 



Aufstellungsort 

Das Diskettenlaufwerk sollte auf einer flachen, vibrationsfreien 
Unterlage aufgestellt werden. Wichtig ist weiterhin eine staubfreie 
Uragebung, da eine Ansanmlung von Staubpartikeln die Funktion des 
Gerats empf indlich storen kann. 
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Abb. 2: RLick-Ansicht 



TABELLE 1. Technische Daten der VC-1541 Single Floppy 



SPEICHERUNG 



Totale Speicherkapazitat 
Sequentieile Files 
Relative Files 

Eintrage in die Directory 
Sektoren pro Spur 
Bytes pro Sektor 
Spuren 
Blocke 



174848 Bytes pro Diskette 

168656 Bytes pro Diskette 

167132 Bytes pro Diskette 

65535 Records pro File 

144 pro Diskette 

17 bis 21 

256 

35 

683 (664 Blocke frei) 



IC's: 



6502 

6522 (2) 

Puffer : 2114 (4) 



Mikroprozessor 
I/O, Timer 
2K RAM 



ABMESSUNGEN 



Hone 

Breite 

Tiefe 



77 mm 
184 mm 
256 mm 



STROMVERSORGUNG 



Spannung 
Frequenz 
Le i stung sauf nahme 



100,120,220 Oder 240 V 
50 Oder 60 Hz 
25 Watt 



SPEICHERMEDIUM 
Disketten 



Standard 5-1/4", einfache Schreib- 
dichte 



Behandlung der Disketten 



Gehen Sie mit den Disketten vorsichtig im. Wenn Sie die nachstehend 
aufgefuhrten Regeln befolgen, schonen Sie Ihre Disketten und konnen 
sich jederzeit auf Ihre gespeicherten Daten verlassen : 

1. Stecken Sie die Diskette nach der Entnahme aus dem Laufwerk 
sofort in die Papierhulle. 

2. Bringen Sie die Diskette nicht in die Nahe starker raagnetischer 
Felder, da hierdurch die Daten zerstdrt werden konnen. 

3. Lassen Sie nie eine Diskette auf der Floppy Oder auf Ihrem Com- 
puter liegen. 

4. Benutzen Sie zum Ausfiillen des Etiketts auf der 
Diskettenschutzhulle keinen Bleistift oder Kugelschreiber, 
sondern einen Filzschreiber. 

5. Setzen Sie die Disketten nie hohen Temperaturen Oder der Sonne 
aus. 

6. Beriihren Sie keinesfalls die Diskettenoberflache und versuchen 
Sie diese auch nicht zu reinigen. Schon der Verlust kleinster 
Oberflachenpartikel kann zum Verlust von Daten fuhren. 

7. Vergewissern Sie sich beim Ein- und Ausschalten der Floppy, daB 
sich keine Diskette im Laufwerk befindet. 



Oas Auspacken der VC-1541 

Oberprufen Sie beim Auspacken des Gerats, ob die folgenden Teile in 
der Verpackung enthalten sind. 

1. VC-1541 Single Floppy 

2. TEST/DEMO-Diskette 

3. Garantiekarte 

4. Verbindungskabel 

5. Handbuch 

Sollten Sie ein Teil vermissen, so verstandigen Sie bitte unverzug- 
lich Ihren COMMODORE -Fachhandler. 



Anpassung an den VC-20 

Die Floppy 1541 befindet sich nach dem Einschalten im C-64 Modus. 
Da der VC-20 mit einer anderen Lesegeschwindigkeit arbeitet, muB 
die Floppy 1541 an den VC-20 angepasst werden. Dazu sind folgende 
Befehle einzugeben: 

OPEN 15,8,15, "UI-" : CLOSE 15 

Urn wieder in den C-64 Modus zu gelangen, benutzen Sie folgende Be- 
fehle : 

OPEN 15,8,15, "UI+" : CLOSE 15 



KAPITEL 2 : INBETRIEBNAHME 



Bevor Sie mit der Floppy zu arbeiten anfangen, sollten Sie sich 
vergewissern, daB sich diese in einem einwandfreien Zustand 
befindet. Dazu muB nach dem Initialisieren der Funktionstest mit 
der beigefiigten TEST/DEMO-Diskette durchgefuhrt werden. 



AnschluB der Floppy an den C-64 



Das Kabel, mit dem die Floppy an den C-64 angeschlossen wird, ist 
dem Diskettenlaufwerk beigelegt. 

BEMERKUNG: Werden an den seriellen Bus des C-64 durch "Verkettung" 
mehrere Gerate angeschlossen, so sollte die Floppy das erste Gerat 
hinter dem Computer sein. 

Befolgen Sie beim AnschluB der Floppy an den Computer bitte Schritt 
fur Schritt die folgenden Anordnungen : 

1. SCHRITT : Schalten Sie Ihren Computer (und gegebenenfalls Ihre 

Modulbox) AUS. 

2. SCHRITT : Stellen Sie das Diskettenlaufwerk moglichst nahe am 

Computer auf . SchlieBen Sie die Floppy NOCH NICHT an 
das Netz an. 

3. SCHRITT : Verbinden Sie den seriellen Ausgang am C-64 und einen 

Ein/Ausgang der VC-1541 durch das beiliegende Kabel. 

4. SCHRITT : SchlieBen Sie Ihre Floppy an das Netz an, aber schal- 

ten Sie NOCH NICHT ein. 



Einschalttest 



1. SCHRITT : Offnen Sie die Klappe des Diskettenlaufwerks und ver- 

gewissern Sie sich daB keine Diskette darin ist. 

2. SCHRITT : Schalten Sie die Modulbox EIN (falls vorhanden). 

3. SCHRITT : Schalten Sie den C-64 EIN. 

4. SCHRITT : Schalten Sie die VC-1541 EIN. Zuerst werden beide LEDs 

auf der Frontplatte aufleuchten. Nach etwa 1 sec 
sollte die rote LED an der VerschluBklappe ausgehen, 
wahrend die griine LED weiterhin leuchtet und damit 
anzeigt, daB die Floppy betriebsbereit ist. Sollte das 
rote LED blinken, so schalten Sie bitte das Gerat aus, 
warten etwa eine Minute und schalten wieder ein. Wenn 
sich auch daraufhin nicht der Normalzustand (rote 
LED: AUS ; griine LED: AN) einstellt, wenden Sie sich 
bitte an Ihren COMMODORE-Handler. 



BEMERKUNG: Um auszuschlieBen, daB die Fehlfunktion der Floppy auf 
eine Wechselwirkung mit anderen Geraten zuriickzufiihren ist, die 
ebenfalls an den seriellen Bus angeschlossen sind (z.B. ein Druk- 
ker), schlieBen Sie bitte diese Gerate wahrend des Tests nicht an. 



Commodore Personal Computer 1541 -Laufwerk 




Drucker 



Abb. 3 : AnschluSschema der Floppy an den C 64 und den Drucker 



Schreibschutz 




Abb. 4 : Orientierung der Diskette zun Laufwerk beim Einlegen 



NIE VERGESSEN: 

Zuerst C 64 und VC 1541 verbinden, dann Netzstecker in 

die Steckdose stecken! 



Das Einlegen der Diskette 

VORSICHT : SCHALTEN SIE DAS DISKETTENLAUFWERK NIE EIN (ODER AUS), 
WENN SICH EINE DISKETTE DARIN BEFINDET. 



1. SCHRITT : Halten Sie die Diskette so, dafi sich der Schreibschutz 

(siehe Abb. 4) auf der linken Seite befindet und schie- 
ben Sie sie in dieser Onientierung in den Schlitz des 
Laufwerks. 

2. SCHRITT : Schieben Sie solange weiter, bis Sie einen deutlichen 

Understand spiiren und die Diskette einen festen Sitz 
hat. 

3. SCHRITT : Driicken Sie nun die Klappe an der Laufwerksoffnung 

nach unten, bis sie mit einem horbaren Klicken 
einrastet. Die Diskette ist nun fest an das Laufwerk 
angekoppelt. 

4. SCHRITT : Urn die Diskette wieder zu entnehmen, driicken Sie die 

Klappe leicht nach hinten (Richtung Laufwerk) und 
schieben sie gleichzeitig nach oben. Die Diskette wird 
dann automat isch aus den Laufwerk herausgeschoben , so- 
daB Sie sie leicht entnehmen konnen. 



Funktionstest 



Wenn sich beim Einschalttest keine Fehler gezeigt haben, so konnen 
Sie jetzt mit dem Funktionstest weitermachen. Die Befehle, die in 
diesem Abschnitt benutzt werden, werden spater detailliert erklart. 
Alle Befehle mussen durch ein RETURN (Driicken der RETURN-TASTE) ab- 
geschlossen werden. 

BEMERKUNG: Die Befehle mussen genau in der Form eingetippt werden, 
in der sie unten aufgefiihrt sind. Ein "Space" ( = Leertaste ) zu- 
viel Oder zuwenig kann dazu fiihren, dali ein Befehl nicht interpre- 
tiert werden kann. Wenn durch Blinken der roten LED ein Fehler an- 
gezeigt wird, tippen Sie den letzten Befehl noch einmal ein. Wenn 
die LED daraufhin erlischt, haben Sie den Fehler erfolgreich korri- 
giert und konnen im Test fortfahren. 

1. SCHRITT : Schieben Sie die DEMO-Diskette wie oben beschrieben in 

das Laufwerk ein. 

2. SCHRITT : Tippen Sie ein : LOAD "PERFORMANCE TEST" ,8 

(dann RETURN -Taste) 

Auf dem Bildschirm erscheint daraufhin: 



SEARCHING FOR PERFORMANCE TEST 

LOADING 

READY. 



3. SCHRITT : Tippen Sie ein : RUN (dann RETURN-Taste) 
Auf dem Bildschirm erscheint daraufhin: 



PERFORMANCE TEST 

INSERT SCRATCH 

DISKETTE IN DRIVE 

PRESS RETURN 

WHEN READY 

DISK NEW COMMAND 

WAIT ABOUT 80 SECONDS 

Die Floppy fordert Sie auf, eine andere Diskette in das Laufwerk 
einzuschieben. Benutzen Sie eine neue Diskette, bzw. eine, die 
keine fur Sie wertvollen Informationen enthalt, da sie durch das 
Funktionstest-Programm " reformat iert" wird. Alle Daten, die auf 
einer Diskette gespeichert sind, gehen durch einen solchen ProzeB 
verloren. Das Funktionstest-Programm gibt der Diskette den Namen 
"TEST DISK". Sie kann mit Programmen oder Daten beschrieben werden. 

Sie legen also die neue Diskette in das Laufwerk ein und driicken 
die RETURN-Taste. Als erstes wird die Diskette "formatiert" . Eine 
fehlerfreie Durchfuhrung der Formatierung wird angezeigt durch: 

OK 
DRIVE PASS 

MECANICAL TEST 

Der Test wird nun automatisch weiter durchgefiihrt und der 
fehlerfreie Verlauf wird angezeigt durch: 



OPEN WRITE FILE 
WRITING DATA 
CLOSE WRITE DATA 
OPEN READ FILE 
READING DATA 
SCRATCH FILE 
WRITE TRACK 35 



OK 
OK 
OK 
OK 

OK 

1 FILE SCRATCHED 1 
OK 



OK 
OK 
OK 



WRITE TRACK 1 

READ TRACK 35 

READ TRACK 1 

UNIT HAS PASSED 

PERFORMANCE TEST! 

PULL DISKETTE FROM 
DRIVE BEFORE TURNING 
POWER OFF 

READY. 



4. SCHRITT : Entnehmen Sie nun die Diskette und stecken Sie sie zu- 

ruck in die StaubschutzhCille. 

5. SCHRITT : Wenn in der letzten Phase des Tests irgendwelche 

Probleme aufgetreten sind, so gehen Sie zuriick zum 
l.Schritt und wiederholen den gesamten Vorgang. 
Sollten mehrere Versuche nicht zum Erfolg fuhren, so 
setzen Sie sich bitte rait Ihrem COMWODORE-Handler in 
Verbindung. 



KAPITEL 3 : ARBEITEN MIT DEM DISKETTENLAUFWERK 



Die Steuerung der Floppy erfolgt fiber den C-64 in folgender Weise: 

* BASIC-Kommandos von der Tastatur des C-64 

* BASIC -Kommandos in Programmen 

* Spezielle Disketten-Komraandos 

Alle drei Methoden sollen in diesem Kapitel beschrieben werden. 

Zun besseren Verstandnis dieses Kapitels sollten Sie uber folgende 
Punkte Bescheid wissen: 

1. Bedienung der C-64-Zentraleinheit 

2. Elementares Programmieren in BASIC 

3. Offnen und SchlieGen von Files 

Als erstes sollen zwei Begriffe erlautert werden, die wichtig fur 
das Verstandnis der Methode sind, mit der Hilfe von Commodore-Dis- 
kettenlaufwerken Daten zu verwalten. Es handelt sich hierbei um die 
"Block- Availability-Map" (BAM = Verzeichnis der verfugbaren 
Blocke) und das "Disk Operating System" (DOS = Betriebssystem). 

Die Block Availability Map (BAM) 

Die BAM enthalt ein Verzeichnis des freien und belegten Speicher- 
platzes der Diskette. Wenn das System Information auf einer Dis- 
kette speichern will, so wird automatisch die BAM vom DOS 
abgefragt, ob und wieviel Speicherplatz noch frei ist. Im Falle 
einer Speicherung wird die BAM anhand der neuen Werte korrigiert, 
d.h. ,der von den neuen Daten benotigte Speicherplatz wird als 
belegt gekennzeichnet. Wird jedoch bei der Abfrage festgestellt, 
dali die zur Speicherung vorgesehene Datenmenge zu grofi ist, so 
wird eine Fehlermeldung ausgegeben. 

Die BAM wird beim Formatieren einer Diskette erstellt und beim 
Initial isieren der Diskette in den DOS-Speicher geschrieben. Die 
BAM ist auf der Diskette auf Spur 18, Sektor gespeichert und 
belegt einen Speicherplatz von 128 Bytes. Alle die BAM betreffenden 
Anderungen werden zuerst im DOS-Speicher (in der Floppy) 
registriert und beim SAVEen (Abspeichern) eines Programms bzw. beim 
CLOSEn (SchlieBen) eines SEQentiellen Files auf die Disketten-BAM 
geschrieben. 



Das Disk Operating System (DOS) 

Das DOS verwaltet den Austausch von Informationen zwischen den 
Kontrollorganen der Floppy und dem Computer. 

So wahlt das DOS z.B. die Kanale bei Ein/Ausgabeoperationen, sucht 
auf den entsprecheneden Befehl hin die Directory (das "Inhaltsver- 
zeichnis" der Diskette), loscht und kopiert Files. 
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Floppy Systembefehle 

Die folgenden Befehle werden beim File-"Handling" und der 
Verwaltung der Diskette verwendet 



BEFEHL 



FUNKTION 



Oisketten-Ebene 



NEW Formatiert die Diskette 

INITIALIZE Initialisiert die Diskette 

L0AD"$",8 Liest die Directory 

VALIDATE Rekonstruiert die BAM 



File-Ebene 



COPY 



RENAME 
SCRATCH 



Kopiert Files (ertnoglicht 
auch das Verkniipfen von 
Files) 

Umbenennung eines Files 

Loschen eines Files 



NEW 

Bevor Sie rait einer neuen Diskette arbeiten konnen, miissen Sie sie 
erst mit NEW formatieren. Dazu wird die Struktur, in der die Daten 
auf die Diskette gespeichert werden, sowie der Name und der ID- 
Code, mit dem die Diskette von der Floppy identifiziert wird, auf 
die Diskette geschrieben. NEW organisiert die Diskette in Spuren 
(Tracks) und Sektoren und legt die BAM an. Der Befehl NEW kann 
durch N abgekurzt werden. 

BEMERKUNG: Alle in diesem Kapitel behandelten Befehle werden der 
Floppy unter Verwendung eines PRINT#-Befehls iibermittelt. Vor der 
Ausgabe dieses Befehls mud mit 0PEN1,8,15 ein File (in diesem Fall 
das File Nr.l) eroffnet werden. Sie konnen dann mit 

PRINT#1, "Befehlsstring" 

den Systembefehl an die Floppy iibermitteln ( 1: logische 
Filenummer, die innerhalb der Grenzen 1 bis 127 frei gewahlt werden 
kann, 8: Gerateadresse der Floppy, 15: Sekundaradresse). Sollte 
beim Offnen des Files die Fehlermeldung ? FILE OPEN ERROR 
erscheinen, so wurde vorher das File Nummer 1 nicht ordnungsgemafi 
geschlossen, was durch die Eingabe CLOSE 1 nachgeholt werden muB. 

Der NEW-Befehl hat das Format: PRINT#lfn, "N:dn,xx" 

lfn : Logische Filenummer 
dn : Name der Diskette (max. 16 Zeichen) 
xx : Ein zwei Zeichen langes Identifizierungs- 
merkmal (ID) 
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Der NEW-Befehl (mit ID) wird bei neuen Disketten Oder solchen, die 
reformatiert werden sollen, angewendet. Bei bereits formatierten 
Disketten kann der NEW-Befehl ohne ID angewendet werden. Hierbei 
wird nur die Directory geloscht und in der BAM alle Blocks als 
nicht belegt gekennzeichnet. Der NEW-Befehl ohne ID braucht 
erneblich weniger Zeit als der mit Angabe der ID. 

1. BEISPIEL : 0PEN15,8,15 

PRINT#15, "N :TESTDISK ,88" 

Diese Befehle offnen mit der Sekundaradresse 15 den Befehls- und 
Fehlerkanal zum Diskettenlaufwerk. Eine Diskette wird formatiert, 
und mit dem Namen TESTDISK und der Identifikation 88 versehen. Man 
kann die beiden Befehle auch in einem zusammenfassen : 

2. BEISPIEL : 0PEN15,8,15, " N: TESTDISK ,88" 

Soil beim Reformatieren einer Diskette nur der Name, nicht aber die 
ID geandert werden, so laBt man die ID einfach weg: 

3. BEISPIEL : 0PEN15,8,15, "N:NEUE TESTDISK" 

Die Diskette bekommt den Namen NEUE TESTDISK zugeordnet und die 
Directory und die BAM werden geloscht. Dieses abgekurzte Verfahren 
funktioniert jedoch nur bei einer bereits formatierten Diskette. 

ACHTUNG: WIRD DAS FORMATIEREN EINER DISKETTE ABGEBROCHEN, WEIL 
EINE SCHLECHTE DISKETTE VERIVENDET ODER DIE LAUFWERKSKLAPPE GE- 
OFFNET WURDE (ROTE LED BLINKT) , SO MUSS DIE 1541 VOR DEM NACH- 
STEN FORMATIEREN AUS- UND WIEDER EINGESCHALTET WERDEN. 
SOLL DAS FORMATIEREN UNTER PROGRAMM-KONTROLLE ERFOLGEN, SO 1ST 
VOR DEM F0RMATIER-K0MMANDO FOLGENDE BEEEHLSZEILE EINZUFOGEN: 

OPEN], 8, 15: PRINTS 1, "M-W" CHR$(81 )CHR$(0)CHR$(1 )CHR$(255) :CL0SE1 

INITIALIZE 

Bei der Initialisierung wird die Disketten-BAM in den Speicher des 
Diskettenlaufwerks geschrieben. Eine fehlerhafte Initialisierung 
fuhrt zu der Fehlermeldung DISK ID MISMATCH ERROR und unter Umstan- 
den zu Datenverlust. 

Die Floppy initialisiert die neu eingelegte Diskette selbsttatig, 
wenn sie sich in der ID von der vor- 
hergehenden Diskette unterscheidet, 
da die Disketten an Hand der ID von der Floppy identif iziert wer- 
den. Wenn alle Disketten eine unterschiedliche ID besitzen, brau- 
chen Sie also nie "von Hand" zu initialisieren. 
Der Befehl INITIALIZE kann durch I abgekurzt werden. 

Das Format des Initialisierungbefehls ist : 

PRINT#lf n , " INITIALIZE " 

lfn : logische Filenummer 

BEISPIEL : 0PEN15,8,15 

PRINT15/I" 

Sie konnen beide Befehle zu einem zusammenfassen: 

0PEN15,8,15,"I" 
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Die Directory 



Die Directory einer Diskette enthalt folgende Informationen: 



1. Diskettennamen 2. 
4. Belegte Blocks 5. 
7. Freie Blocks 



Disketten ID 
Filenamen 



3. Nr. der DOS Version 
6. Filetyp 



Das Laden der Directory in den Rechner geschieht durch die Eingabe 
von 

LOAD'S", 8 

mit nachfolgender (RETURN) -Taste. Beachten Sie bitte, daB 
hierdurcn ein im Rechnerspeicher befindliches Programm zerstort 
wird. Der Inhalt der Directory wird nach Eingabe des Befehls 

LIST 

mit nachfolgender (RETURN) -Taste auf dem Bildschirm sichtbar 
gemacht. 

Es ist sinnvoll, die Diskette zusammen mit der ausgedruckten 
Directory aufzubewahren. Die Ausgabe der Directory auf einen 
Drucker geschieht am bequemsten mit der untenstehenden Befehls- 
folge: 



LOAD'S", 8 



0PEN4,4 



CM)4 



LIST 

PRINT#4 

CL0SE4 



Die Directory wird in den Arbeitsspeicher 
des Rechners ge laden 

Ein File mit der Filenummer 4 wird eroffnet 
und der Geratenummer 4 zugeordnet (in den 
meisten Fallen besitzt der Drucker diese 
Geratenummer) 

Alle Daten, die normalerweise auf den Bild- 
schirm ausgegeben werden, werden nun auf 
das Peripheriegerat umgelenkt, das der 
Filenuraner 4 zugeordnet ist (in unserem 
Fall also auf den Drucker) 

Die Directory wird ausgedruckt 

Der CMD-Befehl wird aufgehoben 

Das File 4 wird geschlossen 



VALIDATE 



Bei der Ausfuhrung des VALIDATE-Befehls werden die Inhalte aller 
auf einer Diskette gespeicherten Files Block fur Block gelesen. 
Blocks, die als belegt gekennzeichnet, aber nicht mit einem 
Filenamen verkniipft sind, werden fur das Abspeichern neuer Daten 
freigegeben. Weiterhin werden Files, die nicht ordnungsgemaR 
geschlossen wurden, aus der Directory geloscht. 
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Wird der VALIDATE-Befehl ordnungsgemaB durchgef iihrt , so wird eine 
neue BAM erzeugt und auf der Diskette abgespeichert. Bei Anzeige 
eines READ ERROR wird der Vorgang abgebrochen und die Diskette 
bleibt unverandert. Wird in einem solchen Fall mit der Diskette 
weitergearbeitet, so muli sie neu initialisiert vverden. 

Der VALIDATE-Befehl hat das Format: 

PR INT#lfn, "VALIDATE" 

Bemerkung: VALIDATE kann durch V abgekurzt vverden. 

BEISPIEL: 0PEN1,8,15 
PRINT#1,"V 

Sie konnen die beiden Befehle zu einem zusammenfassen und verkiirzt 
schreiben: 

0PEN1,8,15,"V" 



COPY 



Mit Hilfe des COPY-Befehls konnen Sie ein File (unter einem belie- 
bigen Namen) innerhalb einer Diskette kopieren. Sie konnen den Be- 
fehl auch benutzen, un aus mehreren sequentiellen Datenfiles (maxi- 
male Anzahl: 4) ein neues zu erzeugen. Der COPY-Befehl kann durch C 
abgekurzt vverden. 
Das Format des COPY-Befehls lautet beim Kopieren eines Files: 

PRINT#lfn,"C:nfn=afn" 

Mochte man mehrere Files zu einem zusammenfassen, so benutzt man 
das Format 

PRINT#lfn, "C:nfn=afnl,af n2, . . . " 

lfn : logische Filenummer 

nfn : neuer Filename 

afn : alter Filename 

afnl, afn2,... : alte Filenamen 



BEISPIEL : PRINT#1, "C:NEUFILE=ALTFILE" 

BEISPIEL : PRINT#1, "C:SLMMENFILE=FILE1,FILE2,FILE3" 



Hat man vor, mehrere Files zu einem zusammenzufassen, so muB man 
kurze Filenamen wahlen, da ein Befehlsstring maximal 40 Zeichen 
lang sein darf. 
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RENAME 



Der RENAME-Befehl belegt ein bereits existierendes File mit einem 
neuen Namen. RENAME kann im Befehlsstring durch R abgekurzt werden. 
Der Befehl hat das Format: 

PRINT#lfn,"R:nfn=afn" 

lfn : logische Filenummer 
nfn : neuer Filename 
afn : alter Filename 

Bemerkung: Ein File, das mit dem RENAME-Befehl unbenannt wird, muB 
vorher mit dem CLOSE -Befehl geschlossen werden. 



SCRATCH 

Mit dem SCRATCH-Befehl lassen sich Files loschen. Man kann 
einzelne, einige, oder alle Files einer Diskette in einem 
Arbeitsgang loschen. Die Abkiirzung von SCRATCH ist S. 

Der Befehl hat das Format: 

PRINT#lfn,"S:fnl,fn2,..." 

lfn : logische Filenummer 

fnl,fn2,... : Namen der zu loschenden Files 

BEISPIEL: PRINT#1, "S:FILE1,FILE2,FILE3" 

Die 3 Files: FILE1, FILE2 und FILE3 werden geloscht. Sie konnen 
dasselbe erreichen, wenn Sie eingeben: 

BEISPIEL: PRINT#1, "S:FILE*" 

Wenn Sie alle Files einer Diskette loschen wollen, so mussen Sie 
folgenden Befehlsstring verwenden: 

BEISPIEL: PRINT#1,"S:*" 



Bemerkung: Naheres uber die Verwendung des Zeichens "*" , des soge- 
nannten "Jokers" erfahren Sie im Kapitel 8. 
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4.KAPITEL : DAS ABSPEICHERN UND LADEN VON PROGRAVMEN LAD DATEN 



Folgende BASIC-Befehle sind wichtig fiir den Austausch von Pro- 
grammen und Daten zwischen dem C-64 und der Floppy: 

0PENlfn,8,sa/fn,ft,mode" VERIFY"fn",8 

CLOSElfn PRINT#lfn 

LOAD"fn",8 GET#lfn 

SAVE"fn",8 INPUT#lfn 

lfn : logische Filenummer ( Zahl zwischen 1 und 255) (*) 
fn : Filename (maximal 16 Zeichen lang) 
8 : Gerateadresse der Floppy (**) 
sa : Sekundaradresse 
ft : Filetyp ( SEQ, USR oder PRG ) 
mode: READ (Abk. :R) Lesen ; WRITE (Abk. :l») Schreiben 
APPEND (Abk. :A) Anhangen 



(*) : Bei der Anwendung des PRINT#-Befehls ist darauf zu achten, 
ob die logische Filenummer grolier oder kleiner als 128 ist. 
Siehe dazu den Abschnitt iiber den PRINT#-Befehl. 

(**): Die Gerateadresse der Floppy wurde werksseitig auf 8 einge- 
stellt, sie kann von Ihnen oder durch Ihren CCMdODORE- 
Vertragshandler in 9, 10 oder 11 umgeandert werden (siehe 
auch Kapitel 10). 



SAVE 



Anwendung: Abspeichern (Saven) eines Programms vom Arbeitsspeicher 
des Rechners auf die Diskette. 

BEISPIEL : SAVE"TESTPR0GRAVM",8 

Das im Arbeitsspeicher des Rechners stehende Programm wird unter 
dem Namen TESTPROGRAVM auf die Diskette geschrieben. 

Haben Sie ein Programm abgeandert und wollen das alte Programm 
unter Beibehaltung des Namens uberschreiben, so mussen Sie vor den 
Filenamen das Zeichen "(a" ( engl. "at sign" aber auch "Klammeraffe" 
genannt) setzen. 

BEISPIEL : SAVE"g:TESTPROGRAWM" ,8 



VERIFY 



Anwendung: Das im Arbeitsspeicher des Rechners stehende Programm 

wird Byte fiir Byte mit dem im VERIFY-Befehl angefiihrten 
Programmfile verglichen. Jedesmal nach dem Abspeichern 
eines Programms sollte ein VERIFY durchgefuhrt werden. 



BEISPtEL : VERIFY'TESTPROGRAMM" ,8 
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Geben Sie statt des Filenamens das Zeichen "*" ein, so wird das zu- 
letzt abgespeicherte Programm uberpriift. 

LOAD 

Mit dem LQAD-Befehl kann man Progranme von der Diskette in den 

Rechnerspeicher laden. 

Der LOAD-Befehl hat das Format: 

L0AD"fn",8,l 

fn : Filename 

8 : Gerateadresse 

1 : Parameter fiir die Ladeadresse (wahlfreie Angabe) 

BEISPIELE : LQAD"TESTPROGRA\M" ,8 

ein Basic-Programm wird geladen 

LQAD'M-PROGRAMM" ,8,1 

ein Maschinen-Program wird an die gespeicherte Adresse 

geladen 

OPEN 



Sie haben im letzten Kapitel den OPEN-Befehl schon im Zusammenhang 
mit anderen Anweisungen kennengelernt, die insbesondere der Behand- 
lung von Programmf iles dienen. Im vorliegenden Abschnitt gent es in 
der Hauptsache urn Datenfiles, d.h. urn das Schreiben von Daten auf 
Diskette und das IViedereinlesen in den Rechnerspeicher. 

Der OPEN-Befehl stellt den Zusammenhang zwischen einer logischen 
Filenummer und einer Gerateadresse her. Weiterhin werden Sekundar- 
adressen spezifiziert und Filenamen, Filetyp und Modus (Schreiben 
Oder Lesen) festgelegt. 
Der OPEN-Befehl hat das Format: 

0PENlfn,8,sa,"fn,ft,modus" 

lfn : Logische Filenummer 

8 : Gerateadresse 

sa : Sekundaradresse (eine Zahl zwischen 2 und 14) (*) 

fn : Filename 

ft : Filetyp, z.B. SEQ bzw.S (Sequentiell) 

mode: READ bzw. R (lesen) ; WRITE bzw. W (schreiben) 
APPEND bzw. A (anhangen von Daten) 

(*) Die Sekundaradresse 15 offnet den Befehls- und Fehlerkanal. 
Das fiihrt dazu, daB der String, der einem solchen OPEN-Befehl 
folgt, bzw. dem zugehorigen PRINT#-Befehl, als Befehl inter- 
pretiert wird. Die Sekundaradressen und 1 sind fiir das Laden 
(LOAD) und Speichern (SAVE) von Programmen bestimmt. 

BEISPIELE : 0PEN2,8,2, "TEXTFILE,S/W" 

0PEN2,8,6, - DATEN,S,A" 

0PEN3,8,5,"DATENFILE,U,R" 
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Wollen Sie den Inhalt eines Files uberschreiben, den Filenamen 
jedoch beibehalten, so miissen Sie den "Klammeraffen" Qa) verwenden: 

BEISPIEL : 0PEN4,8,7, "<e:NEUFILE,S,R" 

Es kann manchmal von Vorteil sein, den Stringausdruck im OPEN- 

Befehl bzw. Teile davon durch eine Stringvariable darzustellen. 

BEISPIELE : BS$="MESSDATEN,S,W" 
OPEN, 1,8, 14, BS$ 

BS$="MITGLIEDER" 
OPEN, 3,8,9, BS$+",S,R" 



CLOSE 



Der CLOSE -Befehl schlieBt Files, die mit OPEN geoffnet wurden. Sein 
Format ist: 

CLOSElfn 

lfn : Logische Filenummer 

Urn Datenverlust zu vermeiden und urn stets die groBtmogliche Anzahl 

von Files zur Verfijgung zu haben (max. 10 Files durfen gleichzeitig 

geoffnet sein), sollte man Files schlieften, nachdem sie nicht mehr 
benotigt werden. 



Bemerkung : Eine spezielle Bedeutung hat das SchlieBen eines mit 
der Sekundaradresse 15 eroffneten Files. Hierdurch 
werden namlich alle Datenkanale einer Floppy auf einen 
Schlag geschlossen. 



PRINTS 



Mit dem PRINT#-Befehl lassen sich Daten (siehe auch den Abschnitt 
iiber SEQuentielle Files) oder Systembefehle ubermitteln. Der 
PRINT#-6efehl hat das Format: 

PR INT#lfn, "Daten" 

lfn : logische Filenummer (*) 

Daten : Befehle, Variablen (numerisch oder Strings) 

(*) Bei Verwendung des PRINT#-Befehls zur Datenubertragung ist zu 
beriicksichtigen, dafi bei Verwendung einer logischen File- <. 
nummer zwischen 1 und 127 ein "carriage return" (CR) und bei 
Verwendung einer Filenummer zwischen 128 und 255 ein CR zu- 
sammen mit einem "line feed" (LF) gesendet wird. Da bereits 
ein CR als Beendigung des PRINT#-Befehls interpretiert wird, 
wird das LF falschlicherweise in den nachsten Datensatz uber- 
nommen.Abhilfe la(3t sich dadurch schaffen, daB man den Befehl 
mit einem Semikolon (;) abschlieRt, dadurch das CRLF unter- 



driickt und in Form eines CKR$(13) ein "kunstliches" CR hin- 
terherschickt. 

BEISPIEL : PRINT#137, "PER ASPERA AD ASTOA" ;OR$(l3); 



INPUT# 



Mit dem INPUT#-Befehl laBt sich Information von einem Peripherie- 
gerat, wie z.B. der Floppy in den Speicher des Rechners uber- 
mitteln. Er ist nur im Rahmen eines Programms (nicht im Direkt- 
Modus) verwendbar. Der INPUT#-Befehl hat das Format: 

INPUT#lfn,A$ Oder INPLTT#lfn,A 

lfn : logische Filenummer 

A$ : Stringvariable 

A : numerische Variable 

Mit dem INPUT#-6efehl konnen auch mehrere Variable zugleich in den 
Rechnerspeicher eingelesen werden: 

INPUT#lfn,A$,B$, . . . ,A,B, . . 

Strings bzw. numerische Variable, die mit Hilfe dieses Befehls von 

der Floppy gelesen werden., konnen nur dann a Is getrennt erkannt 

werden, wenn sie auf der Floppy durch "carriage returns" getrennt 
sind. 

BEISPIEL : 50 INPUT#2,A 

Liest das nachste Datum (das numerisch sein mufi) und 
ordnet es der Variablen A zu. 

BEISPIEL : 10 INPLTT#7,A$ 

Liest das nachste Datum und ordnet es der String- 
variablen A$ zu 

BEISPIEL : 40INPUT#3,B,C$ 

Liest die nachsten beiden Daten und ordnet sie der nu- 
merischen Variablen B und dem String C$ zu. 



Der INPUT-Befehl akzeptiert nur Strings, die eine Lange von maximal 
88 Zeichen aufweisen. Im Falle langerer Strings muB der GET#-Befehl 
angewendet werden. 



GET# 



Der GET#-Befehl dient dazu, Strings Byte fur Byte von einem Peri- 
pheriegerat wie z.B. der Floppy in den Rechnerspeicher einzulesen. 
GET# kann nur im Rahmen eines Programms angewendet werden. Der 
Befehl hat das Format: 
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GET#lfn,A$ 

GET#lfn,A 

lfn : logische Filenummer 

A$ : Stringvariable 

A : numerische Variable 

GET# kam benutzt werden, um Strings, die langer als 88 Zeichen und 
dan it zu lang fur den INPUT#-Befehl sind, einzulesen. Der folgende 
Programmteil ist ein Beispiel fiir eine Unterroutine, mit der es 
moglich ist, einen String mit einer Lange von 254 Zeichen in den 
Rechnerspeicher einzulesen, wo er der Stringvariablen AA$ 
zugeordnet wird: 

10 0PEN1, 8,5, "FILE, S,R" 

20 AA$=" 

30 F0RI=lto254 

40 GET#1,A$:IFA$="THENA$=CHR$(0) 

50 AA$=AA$+A$ 

60 NEXT 

70 CL0SE1 
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KAPITEL 5 : FCRTGESCHRITTENES PROGRAMMIEREN MIT DER FLOPPY 

Das COMMODORE Disk Operating S y s t, e m 
(DOS) 



Das File-System wird durch Kanale organisiert, die mit Hilfe des 
OPEN-Statements geoffnet werden. Das DOS reserviert je nach Filetyp 
ein Oder zwei Pufferspeicher fur jeden Kanal. Steht kein Pufferbe- 
reich raehr zur Verfugung, so wird die Fehlermeldung: NO CHANNEL 
ausgegeben. Drei der acht Pufferspeicher werden vom DOS von vorn- 
herein belegt fur die Block Availability Map (BAM), die Befehls- 
kanal Ein/Ausgabe und die "Job-Schlange" des Disk-Controllers, die 
fur eine optimale Abwicklung der verschiedenen Ein/Ausgabeopera- 
tionen sorgt. Die im OPEN-Befehl angegebene Sekundaradresse wird 
vom DOS zur Kennzeichnung der Kanale verwendet. Die GroRe der Se- 
kundaradresse wird jedoch nur als Identif izierungsmerkmal eines be- 
stimmten Kanals verwendet und muB nicht mit der internen Kanal- 
nummer identisch sein. Bei Eingabe des LOAD- bzw. SAVE-Befehls wer- 
den als Sekundaradressen automatisch bzw. 1 gewahlt. Die verblei- 
benden Sekundaradressen 2 bis 14 konnen dazu verwendet werden, bis 
zu 5 weitere Datenkanale zu offnen. 



Die Direkt-Zugriffs-Befehle 

Bei den nun folgeryten Befehlen wird die Organisation der Daten auf 
der Diskette nicht vom DOS ubernommen, sondern kann vom Anwender 
selbst bestimmt werden. Voraussetzung fiir eine sachgemafie Anwendung 
dieser Befehle ist die Kenntnis des Diskettenaufbaus, der am Ende 
dieses Kapitels detailliert besprochen wird. 

Alle nachstehend aufgefiihrten Befehle werden nach Eroffnung eines 
Files mit der Sekundaradresse 15 durch einen PRINT#-Befehl uber- 
mittelt: 



Befehl 



Abkiirzung 



Format 

"B-R:"ch,0,t,s 

"B-W:"ch,0,t,s 

'B-E:"ch,0,t,s 

"B-P:"ch,p 

"B-A:"0,t,s 

"B-F:"0,t,s 

"M-Wadl/adh/nc/data 

"M-R'adl/adh 

"M-E"adl/adh 

'Ui :param" 

(*): Wahrend die drei "memory "-Befehle nur in der abgekurzten 
Form verwendet werden durfen, karm man bei alien anderen Be- 
fehlen sowohl die abgekiirzte wie auch die in der Spalte "Be- 
fehl" angegebene ausgeschriebene Form verwenden. 



BLOCK -READ 


B-R 


BLOCK-WRITE 


B-tt 


BLOCK-EXECUTE 


B-E 


BUFFER-POINTER 


B-P 


BLOCK-ALLOCATE 


B-A 


BLOCK-FREE 


B-F 


memory-write (*) 


M-W 


memory-read (*) 


M-R 


memory-execute ( * ) 


M-E 


USER 


U 
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Die Parameter in den Formatantveisungen haben folgende Bedeutungen: 

ch : Kanalnummer im DOS, die identisch mit der 

Sekundaradresse im OPEN-Befehl ist 
: Nummer des Floppy-Laufwerks 
t : Nummer der Spur ("track") auf der Diskette 

(eine Zahl zwischen 1 und 35) 
s : Nummer des Sektors auf der Diskette (je nach 

Spur eine Zahl zwischen und 20; siehe dazu 

Tabelle 4) 
p : Position des Buffer-Pointers 
adl : Low Byte der Adresse 
adh : High Byte der Adresse 
nc : Anzahl der Zeichen (zwischen 1 und 34) 
data : Daten in hexadezimaler Darstellung. Die 

Daten werden byteweise mit Hilfe der CHR$- 

Funktion dargestellt, d.h.mit CHR$(160) wird 

hexadezimal AO iibermittelt. 
i : Index der User-Sprung-Tabel le 
param: Parameter, die mit dem USER-Befehl verkniipft 

sind. 

Die Parameter konnen wahlweise durch ein Komma (,) Oder ein Semi- 
kolon (;) getrennt werden. In den nachfolgenden Beispielen wird das 
Semikolon benutzt. 



BLOCK-READ 

Dieser Befehl erlaubt direkten Zugriff zu jedem Datenblock auf der 
Diskette. Zusammen mit anderen Direkt-Zugriff s-Befehlen kann so ein 
File-System aufgebaut werden, in dem jeder beliebige Block direkt 
angesprochen wird. Der B-R-Befehl liest einen Zeiger (Pointer), der 
in der O-Position eines jeden Blocks steht und der auf das letzte 
zu lesende Zeichen zeigt. Nachdem der Block bis zu dieser Position 
(durch einen GET#- Oder INPUT#-Befehl) gelesen wurde, wird ein 
"End-Or-Identify" (EOI) an den Rechner gesendet. Hierdurch wird der 
INPUT#-Befehl abgeschlossen und die Status-Variable auf 64 gesetzt. 

BEISPIEL : "B-R: "5,0; 18,0 

Der Datenblock von Spur 18, Sektor wird in den zu 
Kanal 5 gehorenden Puffer eingelesen. Eroffnet man nun 
ein File unter Verwendung der Sekundaradresse 5, so 
kann man die Daten mit GET# Oder INPUT# in den Rechner- 
speicher einlesen. 



BLOCK-WRITE 

Bei der Ausfiihrung dieses Befehls wird der momentane Puffer-Zeiger 
(Buffer-Pointer) als Zeiger auf das letzte Zeichen interpretiert 
und in die O-Position des Puffers geschrieben. Daraufhin wird der 
Pufferinhalt in den spezif izierten Block auf die Diskette geschrie- 
ben. Der Puffer-Zeiger zeigt nach Ausfiihrung des Befehls wieder auf 
die Position 1. 
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BEISPIEL : "B-W: "7;0;35;I0 



Der Inhalt des zu Kanal 7 gehorenden Pufferspeichers 
wird in den Block von Spur 35, Sektor 10 geschrieben. 



BLOCK-EXECUT 

Dieser Befehl ladt Programm-Routinen von der Diskette in den 
Floppy-Speicher und fiihrt sie nach AbschluB des Ladens aus. Das 
Programtn muA mit einer RTS-Anweisung (Return-Frotn-Subroutine) 
abgeschlossen werden. 

BEISPIEL : "B-E: "6;0;1;10 

Ladt den Datenblock von Spur 1, Sektor 10 in den zu 
Kanal 6 gehorenden Puffer und fiihrt die in den Oaten 
enthaltenen Anweisungen aus. 



BUFFER-POINTER 

Mit diesem Befehl lasst sich der Wert des Puffer-Zeigers (Buffer- 
Pointers) verandern. Auf diese Weise ist es moglich, einen Block in 
Bereiche zu unterteilen, auf die beliebig zugegriffen werden kann. 

BEISPIEL : "B-P: - 2,l 

Der Zeiger des zu Kanal 2 gehorenden Puffers wird auf 
den Beginn des Speicherbereichs gesetzt. 



BLOCK-ALLOCATE 

Mit diesem Befehl konnen in der BAM (im DOS-Speicher) Blocks als 
belegt gekennzeichnet werden. Beim SchlieBen eines Schreib-Files 
wird dieser Eintrag in die Disketten-BAM ubernommen. 

BEISPIEL : "B-A: "0,10,0 

Der Block auf Spur 10, Sektor soil als belegt gekenn- 
zeichnet werden. 

Wenn ein Block markiert werden soil, der schon vorher als belegt 
gekennzeichnet wurde, so wird durch Erhohen von Spur- und Sektor- 
nummer der nachste freie Block aufgesucht. Die Position des so ge- 
fundenen Blocks kann zusamroen mit der Fehlermeldung: NO BLOCK iiber 
den Fehlerkanal 15 ausgelesen werden. Zu diesem Zweck muB bei An- 
wendung des B-A-Befehls stets ein File mit der Sekundaradresse 15 
geoffnet werden. Mit 

INPUT#1 f n , FN , FM$ , FT , FS 

konnen dann Spur (FT) und Sektor (FS) des nachsten frei verfugbaren 
Blocks ausgelesen werden. Ist kein freier Block mehr verfiigbar, so 
werden FT, FS als 0,0 ausgegeben. 

VORSICHT: Ein VALIDATE-Bef ehl gibt alle Blocke wieder frei, die 
nicht zu ordnungsgema5 im Directory eingetragenen Files gehoren. 
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BLOCK-FREE 

Dieser Befehl hat den entgegengesetzten Effekt wie der B-A-Befehl. 
Ein vorher in der BAM als belegt gekennzeichneter Block wird frei- 
gegeben . 

BEISPIEL : "B-F:"0;9;20 

Der Block in Spur 9, Sektor 20 wird als frei gekenn- 
zeichnet. 

Die BAM-Befehle der 1541 kommen in der Regel nur mit Schreib- 
befehlen gemeinsam vor. Sollte einmal ein Block-Free- Oder 
Block-Al locate-Bef ehl ohne nachf olgenden Schreibbef ehl auftre- 
ten, so ist ein Dummy-Zugri f f auf die Diskette auszufuhren, 
z.B. : 

0PEN2,8,2, "g>: dummy, s,r"2 

PRINT#2, "x 

CL0SE2 

Die aktual isierte BAM wird immer erst beim SchliefSen eines 
Schreib-Kanals auf die Diskette zuriickgespeichert . 



"MEMORY" -Befehle 



Die drei MEMORY -Befehle arbeiten byte-orientiert, sodaB man sie im 
Zusammenhang mit Maschinenprogrammen verwenden kann. Wenn man im 
Rahmen eines BASIC-Programms mit den MEMORY-Befehlen arbeiten will, 
mud man die einzelnen Bytes mit Hilfe der CHR$-Funktion ubertragen. 
Es durfen nur die Abkiirzungen M-R, M-W und M-E benutzt werden; we- 
der das Ausschreiben der Befehlsnamen noch die Verwendung des Dop- 
pelpunkts (: ) ist zugelassen. 



Memory-Write 

Der M-W-Befehl erlaubt direkten Zugriff zum DOS-Speicher. Programm- 
Routinen konnen geladen und mit dem M-E- oder dem USER-Befehl ge- 
startet werden. Bei jeder Anwendung des Befehl konnen bis zu 34 
Bytes iibertragen werden. 

BEISPIEL : "M-rChF$(00)ChR$(7)CHR$(3)CHR$(32)CHR$(0)CHR$(l7) 

Drei Bytes werden in die Speicheradressen $0700, 
$0701, $0702 (hexadezimal) (dezimal 1792, 1793, 1794) 
geschrieben. 



Memory-Read 

Mit diesem Befehl kann das Byte gelesen werden, dessen Adresse im 
Befehlsstring stent. Es konnen sowohl Variable aus dem DOS, wie 
auch aus den Puffern ausgelesen werden. Der M-R-Befehl andert den 
Inhalt des Fehlerkanals, da er diesen benutzt, urn Information an 
den Rechner zu ubermitteln. Der nachste GET#-Befehl, der den 
Fehlerkanal anspricht (Sekundaradresse 15), liest das Byte aus. 
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BEISPIEL : - M-R"CHR$(128) ;CHR$(0) 



Liest das Byte, das unter der Adresse $0080 (dezimal: 
128) gespeichert ist. 



Memory-Execute 

Startet die Ausfuhrunq einer Subroutine im DOS-Speicher. Die Sub- 
routine mufi mit RTS ($60) abgeschlossen werden. 

BEISPIEL : ■M-E"CHR$(I28) ;CHR$(49) 

Startet die Programmausfuhrung bei $3180 
(dezimal : 12672) 



USER 

Mit dieser Befehlsgruppe kann man unter Benutzung einer Sprungta- 
belle (Tabelle 3) die Verbindung zur Maschinensprache des 6502 her- 
stellen. Der Index n im Befehl Un definiert nach Tabelle 3 die 
Sprungadresse. Statt der Zahlen 1 bis 9 und dem Doppelpunkt (:) 
konnen auch die Buchstaben A bis als Indizes benutzt werden. 

Die Befehle Ul und 1)2 sind nahezu identisch (*) mit den B-R und B- 
W-Befehlen und haben deshalb auch das gleiche Format: 

"Ul:"ch;dr;t;s 

"U2:"ch;dr;tr;s 

Uber die Befehle Ul bis U9 kann vom Anwender frei verfugt werden. 

(*) Ul setzt den Pufferzeiger auf 255 und liest stets den gesamten 
Block in den Speicher ein. 

U2 schreibt den Speicherinhalt in einen Block, ohne den Wert 
des Bytes in Position zu andern. 

Tabelle 2 : Sprungtabelle 

l.BEZEIONUNG 2.BEZEICHNUNG FUIVKTION 

Ul UA 

U2 UB 

U3 UC 

U4 UD 

U5 UE 

U6 UF 

U7 UG 

U8 UH 

U9 Ul 

U: UJ 

UI+ Umschalten in C-64 Modus 

Ul- Umschalten in VC-20 Modus 
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Ersatz fur BLOCK-READ 


Ersatz fur BLOCK-WRITE 


Sprung nach 


$0500 


Sprung nach 


$0503 


Sprung nach 


$0506 


Sprung nach 


$0509 


Sprung nach 


$050C 


Sprung nach 


$050F 


Sprung nach 


$FFFA 


Power-up Vektor 



DIE DATENSTRUKTUR AUF OER DISKETTE 



Die einzelnen Datenblocks der Diskette konnen mit Hilfe des Pro- 
gramms: "DISPLAY T&S" ( = Anzeige von Spur Sektor), das sich auf 
der TEST/DEMO-Diskette befindet, gelesen werden. Die Tabelle 4 
zeigt Anzahl und Numraerierung der Sektoren (Blocks) auf den 
verschiedenen Spuren. 



Tabelle 3 : Die Belegung der Spuren mit Sektoren 

SPUR SEKTORNUWER ANZAHL DER SEKTOREN 



1 bis 17 


bis 20 


21 


18 bis 24 


bis 18 


19 


25 bis 30 


bis 17 


18 


31 bis 35 


bis 16 
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Tabelle 4 : Format der VC-1541-BAM 
Gespeichert auf : Spur 18; Sektor 
BYTE INHALT BEDEUTUNG 

0,1 18,01 Spur und Sektor des ersten Blocks der Directory 

2 65 ASCII-Zeichen "A"; zeigt 1541-Format an 

3 O-Flag 

4-143 Bitmuster der belegten bzw. nicht belegten Blocks 
(0: belegt; 1: nicht belegt) 



Tabelle 5 : Vorspann (Header) der Directory 

Gespeichert auf : Spur 18; Sektor 

BYTE INHALT BEDEUTUNG 

144-161 Name der Diskette (erganzt mit'geshifteten Spaces") 

162,163 ID-Kennzeichnung der Diskette 

164 160 "Geshifteter Space" 

165.166 50,65 ASCII-Darstellung von 2A 

(gibt DOS-Version und Format an) 

166.167 160 "Geshiftete Spaces" 

177-255 Nicht benutzt, aufgefiillt mit Nullen 

Bern: Die Positionen 180 bis 191 konnen mit ASCII-Zeichen belegt 
sein. 
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Tabelle 6 : Format der Directory 
Gespeichert auf : Spur 18, Sektor 1 
BYTE INHALT 



0,1 

2-31 

34-63 

66-95 

98-128 

130-159 

162-191 

194-223 

226-255 



Spur und Sektor des nachsten Blocks der Directory 

Eintrag des 1. Files 

Eintrag des 2. Files 

Eintrag des 3. Files 

Eintrag des 4. Files 

Eintrag des 5. Files 

Eintrag des 6. Files 

Eintrag des 7. Files 

Eintrag des 8. Files 



Tabelle 7 : Format eines Directory-Eintrags 

BYTE INHALT 

Filetyp (*) oder-verknupft ("geort") mit $80 

1,2 Spur und Sektor des ersten Datenblocks 

3-18 Filename (erganzt mit "geshifteten Spaces") 

19,20 Nur bei relativen Files benutzt 

21 Nur bei relativen Files benutzt 

22-25 Nicht benutzt 

26,27 Spur und Sektor des neuen Files beim Oberschreiben mit 

dem (a) ("Klammeraffe") 

28,29 Anzahl der Blocks im File (Low Byte, High Byte) 



(*) Filetypen 



= DELeted 

1 = SEQuential 

2 = PROGram 

3 = USeR 

4 = RELative 



Tabelle 8 : Format eines sequentiellen Files 

BYTE INHALT 

0,1 Spur und Sektor des nachsten sequentiellen Datenblocks 
2-255 254 Bytes Daten 

Tabelle 9 : Format eines Programmfiles 

BYTE INHALT 

0,1 Spur und Sektor des nachsten Programmblocks 
2-255 254 Bytes Programm im VC-Speicherformat (BASIC-Befehle 
als "Tokens"). Das Fileende ist durch 3 Nullen markiert. 
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Abb. 5 zeigt den Aufbau eines Sektors auf einer Diskette, die fur 
die VC-1541 formatiert wurde. Cteder Sektor enthalt einen Datenblock 
von 254 Zeichen Daten bzw. Programm. Zwei zusatzliche Bytes bilden 
einen Zeiger zum nachsten Block; dadurch wird es moglich, mit Files 
zu arbeiten, die langer als ein Block sind. Dieser Aufbau ist bei 
PRG, SEQ und USER-Files der gleiche. 

Ein Datenblock wird durch die Angabe von Block und Sektor adres- 
siert. Eine VC-1541-0iskette enthalt 35 Spuren (Ringe), die von 1 
bis 35 durchnummeriert sind. Da die Spuren verschieden lang sind, 
enthalten sie eine verschiedene Anzahl von Sektoren (Tabelle 4.). 
Die Gesatntheit der Daten, die in einem Sektor enthalten sind, zeigt 
die Abb. 5. 
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Abb. 5 : Aufbau eines Diskettensektors. 
(Darstellung nicht maBgerecht) 
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KAPITEL 6 : SEQUENTIELLE FILES 

Die Daten, aus denen ein sequentielles File aufgebaut ist, konnen 
nur in der Reihenfolge gelesen werden, in der sie geschrieben wur- 
den. Ein sequentielles File kann nicht teilweise abgeandert werden, 
es besteht lediglich die Moglichkeit (durch Wahl des "mode" A), 
neue Daten an das Fileende anzuhangen. 

Anlegen und Lesen eines sequentiellen Files (Siehe dazu auch die 
Beschreibung des OPEN- und des PRINT#-Befehls in Kapitel 4) 

1. SCHRITT : Eroffnen eines Schreibfiles 

0PEN2, 8,2, "DATEN, S,W 

DATEN : Filename 

S : Sequentiell 

W : Schreiben (Write) 

2. SCHRITT : Schreiben in das File 

PRINT#2,A$,B$,C$ 

Die Inhalte der drei Stringvariablen werden in das 
File geschrieben 

3. SCHRITT : Das File wird geschlossen 

CL0SE2 

4. SCHRITT : Das File mit dem Namen DATEN wird geoffnet 

0PEN2,8,2,'DATEN,S,R" 
R : Lesen (Read) 

5. Schritt : Die Daten werden in den Rechnerspeicher eingelesen 

INPUT#2,X$,Y$,Z$ 

Die Werte von A$, B| und C$ werden jetzt den Variablen 
X$, Y$ und Z$ zugeordnet. 

6. SCHRITT : Die Statusvariable, die am Fileende den Wert 64 an- 

nimmt,wird abgefragt. 

IF ST=64 THEN aOSE2 
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Beispiel eines Programms, 'das "Wit sequentiellen Files arbeitet 



Dieses Programm befindet sich unter dem Namen "SEQUENTI/\L FILE" auf 
der TEST/DEMO-Diskette. 



1 REM *************** 

2 REM * EXAMPLE 

3 REM * REAL & WRITE 

4 REM * A SEQUENTIAL 

5 REM * DATA FILE 

6 REM *************** 

19 PRINT"nM»iilINITIALIZE DISK" 

20 DIMA$<25> 
30 DIMB<25) 

40 OPEN15,3,15.."I0" 

60 GQSUE 1000 

70 CR*=CHR$<13> 

80 PRINT 

90 PRINT" MWRITE SEQ TEST FILE" 

95 PRINT 

100 REM ************* 

101 REM * 

102 REM * WRITE SEQ 

103 REM * TEST FILE 

104 REM * 

105 REM ************* 

110 OPEN2,8,2,"@0:8EQ TEST FILE ,S,W" 
115 GOSUE 1000 

11? pr i nt "enter a word. comma, number" 

113 pr i nt "enter word 'end' to stop" 

120 input"a#,b%a$,b 

130 ifa*="end"then 160 

140 print#2,a$","str*';ejcr$; 

145 GOSUE 1000 
150 GOTO 120 
160 CLOSE 2 

200 REM ************* 

201 REM * 

202 REM * READ SEE 

203 REM * TEST FILE 

204 REM * 

205 REM ************* 

206 PRINT 

207 PRINT" READ SEQ TEST FILE" 

208 PRINT 

210 OPEN2,8,2,"0:SEQ TEST FILE ,S,R" 

215 GOSUE 1000 

220 INPUT#2 J A$a) J B<I> 

224 RS=ST 

225 GOSUB 1006 

230 PRINTA*<D,ECI> 
240 IFR S=64 THEN 300 
250 IF RSO0 THEN 400 
260 1=1+1 
270 GOTO 220 
300 CLOSE 2 
310 END 
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400 PR I NT " BfiDHD I SK WST ATU3MI Sll" R< 

418 CLOSE 2 

420 END 

1808 REM ************ 

1001 REM * 

1002 REN * READ 
1083 REM * THE ERROR 

1004 REM * CHANNEL 

1005 REM * 

1006 REM ************ 

1010 1 nput# 1 5 , en , em$ , et , es 
1020 if en=0 then return 
1030 priht"(m»error on disk" 
1040 printen.;em*.;et.;es 

1050 CLOSE 2 
1060 END 

READY. 
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KAPITEL 7 : DER DIREKT-ZUGRIFF 



Ein Direkt-Zugriffs-File wird rait Hilfe der in Kapitel 5 besproche- 
nen BLOCK- und USER-Befehle angelegt. Un diese Befehle richtig an- 
wenden zu kdnnen, ist es wichtig, den DatenfluG zwischen Rechner, 
Pufferspeicher und Diskette zu verstehen. In Abbildung 6. werden 
diese Zusammenhange illustriert: 



Zuerst werden Befehlskanal und Puffer eroffnet: 
OPEN 5,8,15 : OPEN 4,8,3, "#7" (*) 



Oaten vom Rechner in 
den Puffer schreiben: 

PRINT#4,A$;CHR$(13) ;B 



Daten void Puffer auf die 
Diskette schreiben: 

PRINT#5,"B-W";3;0;6;4 



Rechner 



Pufferzeiger setzen: 
PRINT#5,"B-P";3;1 




Daten vom Puffer in 
den Rechner lesen: 

INPUT#4,A$,B 



Puffer 



Daten von der Diskette 
in den Puffer schreiben: 

PRINT#5,"B-R";3;0;6;4 



Rechner 




Abb. 6. DatenfluB zwischen Rechner, Puffer und Diskette 



'(*) Der im vorliegenden Beispiel angewandte OPEN-Befehl ordnet dem 
Kanal 3 (Sekundaradresse) den Puffer 7 zu. Ist dieser Puffer 
nicht verfugbar, so wird dies durch die Fehlermeldung : NO 
CHANNELS angezeigt. Benutzt man den OPEN-Befehl in der Form : 
0PEN4,8,3,'#' , so wird der nachste freie Pufferspeicher dem 
Kanal 3 zugeordnet. 



32 



Programmbei spiel : Fileverwaltung mit Direkt-Zugriffs-Befehlen 

Das folgende Programm verwaltet Files mit Hilfe von "Block"- unfl 
"USER"-Befehlen und kann z.B. zum Aufbau einer Adress-Datei ver- 
wendet werden. Unter dem Namen "RANDOM FILE" ist dieses Programm 
auf der TEST/DEMO-Diskette gespeichert. Die verschiedenen Programm- 
teile und ihre Funktion sind der folgenden Aufstellung zu ennehmen 
(ZN = Zeilennunmier) : 

ZN 50 - 76 Menu 

Zn 100 - 190 Erzeugen eines Files 

ZN 200 - 280 Loschen eines Files 

ZN 300 - 390 Suchroutine 

ZN 5100 - 5190 Dateneingabe 

ZN 5200 - 5260 Datenausgabe 

ZN 5260 - 5320 Fehlerausgabe 

ZN 5322 - 5390 Umrechnen der Recordnummer in Spur und Sektor 



Urn die Handhabung der Datenb locks zu vereinfachen, wunde das Kon- 
zept der Record-Nummer eingefiihrt. Aus dieser Numiner errechnet der 
letzte Programmteil (ab ZN 5322) Spur und Sektor des gesuchten 
Datensatzes. Die Spur 18 tvird bei dieser Programmroutine automa- 
tisch ausgespart, sodafi die an dieser Stelle abgespeicherte 
Directory nicht uberschrieben werden kann. Die Aufteilung der 
Record-Nummern auf die Spuren der Diskette zeigt Tabelle 11. 



Tabelle 10 : Zuordnung der Record-Nummern zu den Diskettenspuren 
(Programm: RANDOM FILE) 



SPUR 


SEKTOR 


SEKTOREN 


RECORD- 






PRO 


SPUR 


NUMMERN 


1 bis 17 


bis 20 


21 




1-357 


18 bis 24 


bis 18 


19 




358-471 


25 bis 30 


bis 17 


18 




478-579 


31 bis 35 


bis 16 


16 




586-664 



10 REM *********************** 
12 REM * RANDOM FILE EXRMPLE * 
14 REM *********************** 
16 DIMI*<664):FD=8:FX=5:CH=2:FP=1 

18 PR I NT "."MM " 

20 PRINT" INSERT DATA SHEET" 

22 PRINT" " 

24 PR I NT "MM START PRESS '£"" 
26 GETP* : I FP*<> " S " THEN26 
28 0PEN15,8, 15/ "10" :0PEN2,8,2, "#" 
38 PRINT "" Ml " 

32 PRINT" INDEX FILE OPERATION" 

34 PRINT" " 

36 INPUT"M NEW SHEET? NIMI";0$: PRINT"" 

38 IF0*="N"THEN46 

40 IF0*O"V"THEN36 

42 PRINT: PRINT" WAIT! " -F0RI=1T0664 
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44 
45 
46 
4? 
48 
49 
50 
52 
54 
56 
58 
60 
62 
64 
65 
66 
68 
?0 
72 
74 
76 

100 

102 
103 
104 
105 
106 
107 
109 
110 
120 
130 
132 
134 
140 
150 
160 
170 
175 
180 
185 
190 

200 

201 
202 
210 
212 
214 
220 
236 
235 
240 
250 
260 
265 
270 
275 
280 



iiiiiri; :I$<n=V" 



iiiiii"i;i$<n 



l=CREflTE" 
2=DELETE" 
3=SEARCH" 
@=EHD" 



1IHI";0$ 
CLOSES = CL0SE2 : 



END 



PRINT"»I 

PRINT I* a ) : NEXT : GOTO50 
OPENS/ 8, 5/ "0: INDEX. S,R" 
FQRI=1T0664 : INPUT#5/ I$CI> 

print" mMtwmmtmiK i t \ 

NEXT I: CLOSES 

PRINT" 38 

PRINT" JOE MENU 

PRINT" 

PRINT 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT 

INPUT" 1 ,2/3,0 

IFO*="0"THENCLO3E15 

IFO*="l "THEN 104 

IFO*="3"THEN300 

IFO*O"2"THEN50 

OOTO200 

REM *********************** 

REM * MASTER FILE CREATE * 

REM *********************** 

PR I NT " ZM6 " 

PRINT" MASTER FILE CREATE" 

PRINT" " 

INPUT "RECORD NO. = 0llll";F 

IF F=0THEN170 

I NPUT " NAME = . Illl" i FB* < 1 ) 

INPUT "ADDRESS =.IMI";FB*<2) 

INPUT"ZIP =.IMI";FB*<3) 

I NPUT "TEL = .IMI";FB*<4> 

INPUT"COMMENT = . Illl" ;FB*<5) 

GOSUB5200 

I*CF>="1" 

GOTO 104 

OPENS, 8/ 5/ "@0: INDEX/ S/W" 

F0RI = 1T0664 : PRINT#5/ I*< I J ; CHR*< 13) > 

pr i nt " srwuiMmtMnm 1 1 \ niiii unci? 

NEXT : CLOSES 
G0T074 

Kill I *T*****T**?T**?******T* 

REM * MASTER FILE DELETE * 
REM *********************** 

pr i nt " maw " 

PRINT" MASTER FILE DELETE" 

PRINT" " : PRINT 

I NPUT "RECORD NO. = 0llll";F 

IFF=0THEN260 

IFI*(FK>"1"THEN220 

I*<F)=V" : PR I NT" RECORD NO. "F; "DELETE" 

GOTO220 

0PEN5/ 8, 5/ "@0 : INDEX/ S, W" 

F0RI=1T0664 = PRINT #5/ 1*< I > / CHR*< 13) ; 

pr i nt " msmmnnnun i t \ nun" i ■> i * < i > 

NEXT : CLOSE5 
GOTO50 
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308 REM ***********************' 

301 REM * FILE SEARCH * 

302 REM *********************** 
310 PR I NT 'TWA 



312 PRINT" SEARCH 

314 PRINT" ":PRINT 

320 INPUT"RECORD NO. = 0IMI" ; F 

$21 IFF=0THEN50 

322 IFI$<FK>"1"THEN320 

325 GOSUB5100 

3S0 PR I NT "NAME = ";FB*a> 

376 PR I NT "ADDRESS = ";FE*C2::' 

380 PRIHT"ZIP = ":.FM<.3> 

382 PR I NT "TEL = ";FB*<4> 

383 PRINT"COMMENT = ";FB$<5> 

385 PRINT" " 

390 GOTO320 

5100 REM *********************** 
5105 REM * FDD BLOCK READ * 
5103 REM *********************** 
5110 G0SUE5338 

5120 print#15,"ui:";ch;fd;ft;fs 
5130 print#15,"e-p:";ch;fp 

5140 GOSUB5270 

5150 FORFI=lTOFX 

5160 INPUT#CH,FB$<FI>: 

5180 NEXT 

5130 RETURN 

5200 REM *********************** 

5201 REM * FDD BLOCK WRITE * 

5202 REM *********************** 
5210 GOSUB5330 

5220 PRINT#15,"B-P:";CH.;FP 

5230 F0RFI=1T0FX:PRINT#CH,FB*<FI>;CHR*(13>; : NEXT 

5240 PRINT#15, "U2 : " ; CH; FD; FT; FS 

5250 GOSUB5270 

5260 RETURN 

5270 REM *********************** 

5275 REM * ERROR CHECK * 

5278 REM *********************** 

5280 IHPUT#15,EN;EM*,ET,ES 

5290 IFEN=0THENRETURN 

5300 PRINT"ERROR STATUS: ";EN;EM$;ET;ES 

5318 INPUT "CONTINUE?"; V*: IFV*="V"THEHRETURN 

5320 STOP 

5322 REM *********************** 

5324 REM * SET TRACK & SECTOR * 

5326 REM *********************** 

5330 IFF<353THENF1=0 = F2=22 = F3=l : GOTO5370 

5340 I FF>357ANDF<472THENF 1 =357 : F2=20 : F3= 1 3 ■ GOTO5370 

5350 IFF>471 ANDF<580THENF 1=471 = F2=19 = F3=25 : GOTO5370 

5360 IFF>579THENF1=579 : F2=18 : RQ=31 

5370 FT=INT<<<F-F1)-1)/CF2-1))*F3 

5380 FS=F-Fl-<FT-F3>*F2+<FT-F3rl > 

5390 RETURN 

READV. 
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KAPITEL 8 : Relative Datei 



Was ist eine "RELATIVE DATEI" ? 



Die Relative Datei ist eine besondere Art des OIREKT-ZUGRIFFS, die 
leicht zu programmieren ist. Dabei wird ein Satz wahlfrei, durch 
seine Satznuraner identifiziert, gelesen Oder geschrieben. Eine 
Relative Datei ist in gleichlange Satze unterteilt, ein Satz 
wiederum kann in Felder untergliedert sein. 



Aufbau und Verwaltung einer Relativen Datei : 

Die Dateiverwaltung ubernimmt das DOS der Floppy Disk. Dazu werden 
SIDE SEKTORS (Zeigerblocke) angelegt. Ein Sektor kann auf 120 
Datenblocke zeigen, 6 dieser Sektoren konnen in einer Datei stehen. 



Kapazitat einer Relativen Datei : 

Eine Datei kann aus 167132 Zeichen bestehen, d.h. einer Disketten- 
seite. Die Datensatzlange betragt 1 - 254 Zeichen. 



Tabelle 11 : Format der Relativen Datei 

Byte Inhalt 

0,1 Spur und Sektor des nachsten Datensatzes 

2-255 254 Datenbytes 

Ein leeren Satz enthalt FF (hex) im ersten Byte 
Nicht belegte Bytes werden auf 00 (hex) gesetzt 



Tabelle 12 : Format des SIDE SEKTORs 

Byte Inhalt 

0,1 Spur und Sektor des nachsten Side Sektors 

2 Nuraner des Side Sektor (0 - 5) 

3 Satzlange 

4,5 Spur und Sektor des ersten Side Sektor 

6,7 Spur und Sektor des zweiten Side Sektor 

8,9 Spur und Sektor des dritten Side Sektor 

10,11 Spur und Sektor des vierten Side Sektor 

12,13 Spur und Sektor des fiinften Side Sektor 

14,15 Spur und Sektor des sechsten Side Sektor 

16-255 Spur- und Sektorzeiger auf 120 Datenblocke 



Anlegen einer Relativen Datei : 

Die Datei wird mit dem OPEN Befehl erzeugt, im Befehlsstring wird 
die Satzlange rait ubergeben. 

Format : OPEN lfn,8,sa,'fn,L,"-tCHR$(satzlange) 

Beispiel : OPEN 2,8,2, "REL,L, "+CHR$(100) 

Eine Relative Datei mit Satzlange 100 wird angelegt. 
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Eroffnen einer existierenden REL Datei zun Lesen und Schreiben 

Format : OPEN lfn,8,sa, "fn" 

Beispiel : OPEN 2,8,2, "REL" 

Die Relative Datei REL wird zun Lesen und Schreiben eroffnet. 



Positionieren auf einen Datensatz : 

Da auf jeden einzelnen Satz wahlfrei zugegriffen wird, muti zunachst 
die entsprechende Satznummer bereit gestellt werden. Das DOS der 
Floppy erwartet diese Satznummer als "ZWEI-BYTE-ZAHL", deshalb muB 
die Satznummer erst umgerechnet werden. 

Umrechnung Satzadresse in das "ZWEI-BYTE -FORMAT" : 
HB = INT(satznummer/256) : LB = satznummer - HB * 256 

Diese Satznummern werden uber den Befehlskanal zum DOS der Floppy 
geschickt (der Befehlskanal mufi mit OPEN eroffnet sein!). 

Format : PRINT# lfn, "P"+CHR$(sa)+CHR$(LB)+CHR$(HB)+CHR$(byte) 
sa = Sekundaradresse der Relativen Datei 
LB = Satznummernteil (LOW-BYTE) 
HB = Satznummernteil (HIGH-BYTE) 
byte = Bytezahl (1 - 254) innerhalb des Satzes 

Beispiel : PRINT#15,"P"4CHR$(2)+CHR$(lO)+CHR$(0)+CHR$(l) 
Es wird auf das 1. Byte im 10. Satz positioniert. 



Schreiben die REL Datei : 

Satze werden mit PRINT# lfn, (satz) in die Datei geschrieben. 
Sollen mehrere Felder in einen Satz, mussen diese mit CHR$(13) = CR 
getrennt und mit e i n e m PRINT# Befehl abgesetzt werden. 

Beispiel : PRINT#2,A$;CHR$(13);B$;CHR$(13);C 

Die Felder A$, B$ und C werden in den gleichen Satz geschrieben. 



Lesen der Relativen Datei : 

Die Felder einer REL Datei werden mit GET# Oder INPUT# gelesen. 

Beispiel : INPUT#2,X$,Y$,Z 

Die 3 Felder eines Satzes werden gelesen. 

Fehlercodes bei REL Oateien : 

Der Fehlercode 50, (siehe Kap. 9) muB besonders behandelt werden. 
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Beispiel-Programm mit RELATIVES' DATEI 

Programmerklarungen : 

Zeilennr. Kurzbeschreibung 

60- 90 Satznummer errechnen und auf den Satz Positionieren 

270-310 Satzlange prufen, REL Datei anlegen 

350-390 10 Leersatze als Platzhalter erzeugen 

430-500 Satze in die Datei schreiben 

470 wenn beim Positionieren der Fehler 50 auftritt, sollte 

uber die Datei hinaus ein Satz geschrieben werden. 
480 Begrenzung der Eingabelange durch den INPUT# Befehl 

540-640 Satze aus der Datei lesen 

580 siehe Zeile 470, nur beim Lesen 

780-800 Fehlerkanal lesen und ausgeben, der Fehler 50 wird ge- 

sondert gezeigt. 

10 PR I NT "^" : GOTO 13@: REM zijm HAUPTPROGRAMM 

20 REM 

30 REM SATZNUMMER UMRECHNEN UND RUF" 
40 REM BEN SflTZ POSITIONIEREN 

50 REM 

60 HE= I NT CRN/256) : LB=RN-HB*256 

70 PRINT#15, "P"+CHR*<8>+CHR*<LB>+CHR*<HB)+CHR*<1> 

30 GO3UB780 

90 RETURN 

100 REM 

110 REM MENUE 

120 REM 

130 OPEN15,8,15,"I0":CLOSE15 

140 PRINT"™ DATEIVERWALTUNG RELATIVER FILES C-64" 

150 PRINT" =«=================================" 

160 IFXX=0THENPRINT" MM31S ANLEGEN EINER DATEI" 

170 PRINT" MSSE1 DATEN8AETZE SCHREIBEN" 

180 PRINT" MMSBi DATENSAETZE LESEN" 

190 PRINT" WWSMS OEFFNEN EINER DATEI" 

260 PRINT" MHa5i PROGRAMMENDE" 

210 GETA* ■ IFA*=" "THEN210 

220 ONVALCA*>GOTO270 J 439, 540/ 660, 800 

230 GOTO210 

240 REM 

250 REM RELATIVE DATEI ANLEGEN 

268 REM 

270 PRINT'TISDATEINAME :■";: INPUTNA$: PRINT 

280 PRINT"33ATZLAENGE :B";:INPUTL 

290 IFL<10RL>254THENPRINT"SMUSS ZWISCHEN 1...254 LIEGENi" : GOTO280 

300 OPENS , 3 , 1 , N A*+ " , L , " +CHR* C L > 

310 OPEN15,3,15:GOSUB780 

320 REM 

330 REM SCHREIBEN VON 10 LEER3AETEZEN 

340 REM 1 

350 PRINT#15, "P"+CHR$C1 >+CHR*< 10)+£hR*<0)+CHR*< 1 > 
360 PRINT#8,CHR*<255>; 
370 RM= I NT a 67 190/L> 
380 CLOSES^ CLOSE 15 
330 XX=i: GOTO 140 
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480 REM 

418 REM SflETZE SCHREIBEH 

420 REM 

430 I FXX< 1 THENG0SUB7 1 : GOTO 1 40 

'440 OPEN 15,8.15: OPENS ,8,3, Nfl* •' GOSUB780 

,450 PRINT'TMa SflETZE SCHRE I BENS" : PRINT 

460 PRINT"M««aSflTZNUMMER : C0=ENDE> B" ; : INPUTRN: IFRN=0THEN740 

470 GOSUB60:IFX=50THENPRINT"aZU HOHE SflTZNUMMERB" : GOTO460 

430 PRINT:PRINT"SEINGflBEDRTEN : <MHX. 79 ZEICHEN>B" 

490 INPUTD$: iflen<;d*:o79thend*=left$<d*,?9:> 

500 PR I NT#3 , 11$ : GOTO450 

510 REM 

520 REM SflTZE LESEH 

530 REM 

540 I FXX< 1 THEHG0SUB7 1 O : GOTO 1 40 

550 OPEN 15, Q, 15 : OPENS, 3, 8, Nfl* : GO3UB780 

560 PRINT'TMa SflETZE LESENB" 

570 PRINT"W««aSflTZNUMMER : <0=ENDE> ■"; : INPUTRN: IFRN=0THEN740 

580 GOSUB60 : IFX=50THENPRINT"3ZU HOHE SflTZNUMMERB" : GOTO570 

590 INPUT#8,D$ 

600 IFD*=CHR*<255)THEND*="LEERER DflTENSflTZ" 

610 PRINT"W3GESPEICHERTE DflTEN : B" : PRINT :PRINTD* 

620 GOTO570 

630 REM 

640 REM DATE I EROEFFNEN 

650 REM 

66^1 PRINT'TJSIDfiTEINflME : B" ; : INPUTNPi* 

670 XX=2: GOTO 140 

680 REM 

690 REM FEHLERMELDUNG 

700 REM 

710 PRINT" 3ZUERST MUSS EINE DRTEI HNGELEGT WERDENB" 

720 FORI=1TO4000:NEXT 

730 RETURN 

740 CLOSES ■ CLOSE 1 5 : GOTO 1 40 

750 REM 

76Q REM FEHLERKflNflL LESEH 

770 REM 

780 INPUT#15, X, X*, Y, Z : IFX<20ORX=50THENRETURN 

790 PRINT" SFEHLER : fi";X,X*;V,Z 

800 CLOSES: CLOSE 15 

810 END 

REflDV. 
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KAPITEL 9 : FEHLERMELDUNGEN - DER "OOKER" 

LESEN DES FEHLERKANALS 

Das Blinken der roten LED der Floppy zeigt das Auftreten eines Feh- 
lers an. Mit Hilfe des folgenden kleinen Programms konnen sie er- 
mitteln, um welchen Fehler es sich handelt, uhd werih dies nach Art 
des Fehlers moglich ist, wo er lokalisiert ist. 

10 0PEN1,8,15 
20 INPUT#1,A,B$,C,D 
30 PRINTA,B$,C,D 
40 CL0SE1 

A : Nummer des Fehlers 

B$ : Fehlerbezeichnung im Klartext 

C : Spur 

D : Sektor 

LISTE DER BEDEUTUNGEN DER FEHLERNUMHERN 

: Kein Fehler 

1 : Riickmeldung fur Fileloschung- (keine Fehlermeldung) 

20 : Block-Header nicht gefunden 

21 : SYNC-Zeichen nicht gefunden 

22 : Datenblock nicht vorhanden 

23 : Fehler in der Prufsumme 

24 : Byte falsch decodiert 

25 : Fehlerhaftes Verify beim Schreiben 

26 : Schreibversuch auf Diskette mit Schreibschutz 

27 : Priifsummenfehler im Header 

28 : Datenblock ist zu lang 

29 : ID der Diskette fehlerhaft 

30 : Allgemeiner Syntax-Fehler 

31 : Ungultiger Befehl 

32 : Befehl ist zu lang 

33 : Ungultiger Filename 

34 : File existiert nicht 

39 : Befehl kann nicht interpretiert werden 

50 : Record existiert nicht 

51 : Recordlange zu klein 

52 : Recordnummer ist zu hoch 

60 : File bereits zum Schreiben geoffnet 

61 : File nicht of fen 

62 : File nicht gefunden 

63 : File existiert bereits 

64 : Falscher Filetyp 

65 : Kein Block mehr frei 

66 : Falsche Spur- Oder Sektornummer 

67 : Falsche Spur- Oder Sektornummer 

70 : Kein Kanal mehr frei 

71 : Fehler in der BAM 

72 : Diskette Oder Directory voll 

73 : Angabe der DOS-Version 

74 : Keine Diskette im Laufwerk 
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LISTE DER FEHLERMELDUNGEN IND BESCHREIBUNG 

20 : READ ERROR 

Header des gesuchten Datenblocks wird nicht gefunden. 

21 : READ ERROR 

SYNC-Markierung wird nicht gefunden. Grunde dafur konnen 
schlechte Justierung des Schreib/Lesekopfes, nicht forma- 
tierte Disketten Oder schlechter Sitz der Diskette sein. Kann 
auch Hardware-Defekt anzeigen. 

22 : READ ERROR 

Dieser Fehler tritt im Zusammenhang mit den BLOCK-Eiefehlen 
auf und zeigt an, daR ein Block gelesen Oder gepruft (veri- 
fied) werden sollte, der nicht ordnungsgemaTi geschrieben 
wurde . 

23 : READ ERROR 

Die Daten, die in den DOS-Speicher geschrieben wurden ent- 
halten einen Priifsummenfehler, d.h. ein Datenbyte Oder mehre- 
re sind fehlerhaft. Dieser Fehler kann auch Erdungsprobleme 
anzeigen. 

24 : READ ERROR 

Die Daten Oder der Header wurden in den DOS-Speicher einge- 
lesen, aber in den Datenbytes existieren fehlerhafte Bit- 
muster. Dieser Fehler kann auch Erdungsprobleme anzeigen. 

25 : WRITE ERROR 

Fehlende Obereinstimmung zwischen den Daten im DOS-Memory und 
den Daten auf der Diskette. 

26 : WRITE PROTECT ON 

Es wird versucht, auf eine Diskette zu schreiben, die mit 
einem Schreibschutz versehen ist. 

27 : READ ERROR 

Es liegt ein Fehler im Header des zu lesenden Datenblocks vor 
(Prufsumme stimmt nicht). Dieser Fehler kann auch Erdungs- 
probleme anzeigen. 

28 : WRITE ERROR 

Nach dem Schreiben eines Datenblocks sucht der Controller die 
•vYNC-Zeichenfolge des nachsten Datenblocks. Wenn er diese 
synchronisationsmarkierung nicht innerhalb eines bestimmtem 
Zeitraums findet, wird diese Fehlermeldung ausgegeben. Grund 
dafur kann z.B. ein zu langer Datenblock Oder ein 
Hardwarefehler sein. 

29 : DISK ID MISMATCH 

Die im OOS-Speicher vorhandene ID stimmt nicht mit der ID auf 
der Diskette uberein. Die Diskette wurde nicht initialisiert, 
oder der Header ist fehlerhaft. 

30 : SYNTAX ERROR 

Das DOS kann den Ciber den Befehlskanal geschickten Befehl 
nicht interpretieren. 
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31 : SYNTAX ERROR 

Befehl wird nicht erkannt. 

32 : SYNTAX ERROR 

Befehl ist langer als 58 Zeichen. 

33 : SYNTAX ERROR 

Falsche Verwendung des "Ookers" im OPEN- oder SAVE-Befehl. 

34 : SYNTAY ERROR 

Filename fehlt, Oder kann vom DOS nicht erkannt werden. 
Typischer Fehler: Ein Doppelpunkt (:) fehlt. 

39 : SYNTAX ERROR 

Befehl wird nicht erkannt. 

50 : RECORD NOT PRESENT 

Die Fehlermeldung wird ausgegeben, wenn versucht wird, nach 
den letzten aufgezeichneten Daten mit INPUT# Oder GET# wei- 
ter zu lesen. 

51 : OVERFLOW IN RECORO 

Die Anzahl der Zeichen (inklusive CR) ist grofier als die vor- 
gegebene Recordlange 

52 : FILE TOO LARGE 

Recordnummer (in einem relativen File) ist zu groli; das 
Fassungsvermogen der Diskette wird uberschritten. 

60 : WRITE FILE OPEN 

Ein Schreibfile, das nicht geschlossen wurde, soil geoffnet 
werden. 

61 : FILE NOT OPEN 

Es soil ein File angesprochen werden, das nicht geoffnet 
wurde . 

62 : FILE NOT FOUND 

File existiert nicht. 

63 : FILE EXISTS 

Ein File soil einen Namen erhalten, der bereits auf der Dis- 
kette existiert. 

64 : FILE TYPE MISMATCH 

File-Typ stimmt nicht mit Directory-Eintrag (iberein 

65 : NO BLOCK 

Diese Fehlermeldung steht im Zusammenhang mit dem B-A-Befehl. 
Der Block, der als belegt gekennzeichnet werden soil, ist be- 
reits belegt. Die Parameter die ausgegeben werden, geben Spur 
und Sektor des nachsten frei verfiigbaren Blocks an. Werden 
zwei Nullen ausgegeben, so sind alle Blocks mit hoheren 
Nummern belegt. 

66 : ILLEGAL TRACK AND SECTOR 

Das DOS findet nicht den Zeiger zum nachsten Block 
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67 : ILLEGAL T OR S 

Ungiiltige Spur- oder Sektornummer 

70 : NO CHANNEL AVAILABLE 

Ein direkt angesprochener Kanal ist bereits belegt Oder 
(falls kein bestimmter Kanal angesprochen wurde) kein Kanal 
ist mehr frei. 

71 : DIR ERROR 

Die BAM kann nicht gelesen werden, was eventuell seinen Grund 
darin haben kann, daft sie im DOS-Speicher iiberschrieben wur- 
de. Ein Reinitialisieren der Diskette kann diesen Fehler in 
manchen Fallen beheben. 

72 : DISK FULL 

Alle 664 Blocks der Diskette sind belegt, Oder die Directory 
hat die maximale Anzahl von 144 Eintragen. 

73 : CBM DOS V2.6 V170 

Diese Meldung erscheint direkt nach dem Einschalten bzw. 
dann, wenn sie mit der VC-1541 auf eine Diskette schreiben 
wollen, die mit einer anderen DOS-Version formatiert wurde. 
Auf COMMODORE-Rechnern existieren vier verschiedene DOS- 
Versionen: DOS 1.0 : CBM 2040/3040 

DOS 2.0 : CBM 4040 

DOS 2.5 : CBM 8050 

DOS 2.6 : CBM 1541 
Voll kompatibel sind die Versionen 2.0 und 2.6. Mit DOS 1.0 
und 2.0 bzw. 1.0 und 2.6 formatierte Disketten konnen wech- 
selseitig gelesen, aber nicht beschrieben werden. Bei einem 
Schreibversuch erscheint die obige Fehlermeldung. Die DOS- 
Version 2.5 ist mit alien anderen Versionen weder schreib- 
noch lesekompatibel. 

74 : DRIVE NOT READY 

Es wurde versucht die Floppy anzusprechen, ohne eine Diskette 
in das Laufwerk einzulegen. 



DER "30KER" 

Ookerzeichen werden benutzt, urn bei einigen Floppy-Befehlen den 
Filenamen in verkurzter Form einzugeben. Man gibt nur den Teil des 
Namens ein, in dem er sich von den anderen Filenamen auf der Dis- 
kette unterscheidet. Der Rest wird durch einen Stern (*) oder ein 
Fragezeichen (?) ersetzt. 

Der Stern wird benutzt, un nichtsignifikante Zeichen am E n d e 
des Filenamens zu ersetzen. 

BEISPIEL : DAT* kann fur folgenbe Filenamen stehen : 

DATE I 
DATUM 
DATENFILE 

d.h., fiir alle Filenamen, die mit den Buchstabe DAT be- 
ginnen 
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Das Fragezeichen wird benutzt, um ein Zeichen an einer 
bestimmten Stelle zu ersetzen. 

BEISPIEL : ????FILE kann stehen fur 

TESTFILE 
OIAGFILE 
DATAFILE 

aber n i c h t fiir 

ABFILE Oder FILEPROG 



Kombinationen von Stern und Fragezeichen miissen mit Vorsicht ge- 
handhabt werden. So ist z.B. die Kombination 

*ABC???? identisch mit * 

Der Grund daftir ist, daB alle Stellen hinter dem Stern als nicht 
signifikant angesehen werden. Ein Stern kann aber fiir jeden belie- 
bigen Filenaraen stehen, so daB z.B. bei Verwendung dieser Ooker- 
korabination in Verbindung mit dem SCRATCH-Befehl alle auf der Dis- 
kette befindlichen Files geloscht wiirden. 
Eine sinnvolle Kombination von Stern und Fragezeichen ware z.B.: 

A?????DAT* , die stehen kann fiir 

ADRESSDATEN 
ALTERSDATEI 
ABCOE DATEIEN (ein Leerzeichen ist auch ein Zeichen) 

Bei den einzelnen Floppy-Befehlen wirkt sich das Arbeiten mit den 
Ooker-Symbolen verschieden aus. Der SCRATCH-Befehl loscht alle 
Namen, die durch die eingegebe Ooker-Kombination abgedeckt werden. 
Bei Ausfiihrung des LOAD-Befehls wird das erste File mit "passendem" 
Namen geladen. Dasselbe gilt fiir den OPEN-Befehl; hier kann jedoch 
nur ein File mit bereits existierendem Namen eroffnet werden. Die 
Befehle RENAME, SAVE Oder COPY durfen prinzipiell nicht in Verbin- 
dung mit Ookersymbolen verwendet werden. 
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KAPITEL 10 : 'Andern der Gerateadresse 

Da an den C-64 bis zu 5 Floppy Disk's anzuschliefien sind, muBen die 
Gerate fiber verschiedene "Namen" angesprochen werden. Der "Name" 
einer Floppy ist die Geratenummer. Die Geratenummer kann Software- 
oder HardwaremaBig geandert werden. 

Sof twarelosung : 
PRINT# lfn,-M-W;CH?$(H9)+CHR$(0)+CHR$(2)+CJ«(nr+32)+CHR$(nr+64) 
nr : neue Geratenummer (9 - 13) 

Beispiel: 
PRINT#15, "M-W ;Crt?$(119)+CHR$(0)+CHR$(2)+O«$(9+32)+CHR$(9+64) 
Die neue Geratenummer ist 9. 

Nachteil der Sof twarelosung : Dieser Befehl muB nach jedem Ein- 
schalten der Floppy wiederholt werden! 

Hinweis: Wenn Sie mehr als ein 1541-Diskettenlaufwerk an Ihren Computer anschlieBen wollen, 
mussen Sie bei jedem Gerat eine andere Geratenummer einstellen. Die Softwarelbsung ist hier- 
bei nicht sehr empfehlenswert, da immer nur das Gerat, dessen Nummer geandert werden soli, 
eingeschaltet sein darf. AuBerdem mussen jedes Mai die oben beschriebenen Befehle eingege- 
ben bzw. ausgefuhrt werden. Die Losung, bei den anderen Lautwerken das serielle Verbindungs- 
kabel bei .Power on" abzuziehen, sollte nicht in Erwagung gezogen werden, da Schaden an den 
Laufwerksplatinen die Folge sein kbnnen. Bei unsachgemasser Behandlung erlischt die Garantie 
fur das Laufwerk. 

Hardwareldsung: Andern der Geratenummer mit DIP-Schaltern 

In Abbildung 5 ist die Lage der DIP-Schalter fur das Einstellen der Geratenummer ersichtlich. 
Die Anderung nehmen Sie bitte wie folgt vor: 

1. Schalten Sie das Laufwerk aus. 

2. Stellen Sie die beiden DIP-Schalter entsprechend der Tabelle fur die gewiinschte Laufwerks- 
Geratenummer ein. 



Geratenummer # 


SW1 


SW2 


8 


ON 


ON 


9 


OFF 


ON 


10 


ON 


OFF 


11 


OFF 


OFF 



3. Schalten Sie das Laufwerk wieder ein. Das Laufwerk wird jetzt unter der eingestellten Lauf- 
werksbezeichnung angesprochen. 




Abb. 5: 
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A N H A N G 

Folgende Programme sind auf der beigelegten TEST/DEMO-Diskette 
enthalten. Das "Listing" dieser Programme ist auf den nachsten 
Seiten abgedruckt. 



mteEiiiaawq^aiiiiiwiiiBP rai 

13 "HOW TO USE" PRO 

5 "HOW PART TWO" PRO 
4 "VIC-20 WEDGE" PRO 

1 "C-64 WEDGE" PRG 
4 "DOS 5.1" FRO 
11 "COP WALL" PRG 
9 "PRINTER TEST" PRG 
4 "DISK ADDR CHANGE" PRG 
4 "DIR" PRG 

6 "VIEW BAM" PRG 

4 "CHECK DISK" PRG 

14 "DISPLAV T&S" PRG 
9 "PERFORMANCE TEST" PRG 

5 "SEQUENTIAL FILE" PRG 
13 "RANDOM FIAL" PRG 



HOW TO USE und HOW PART TWO 

Eine Beschreibung der Programme auf der TEST/DEMO-Diskette. 

VIC-20 WEDGE 

Dieses Prpgramm fur den VC-20 erlaubt "verkiirzte" Floppy-Befehle. 

C-64 WEDGE 

Ein Pogramm fur den C-64, es lad ein "Utility-Programm" nach. 

DOS 5.1 

"Utility-Programm" fur den C-64, es verkiirzt die Floppy-Befehle. 

COPY/ALL 

Ein Kopierprogramm, daB alle Programme und Dateien von einer Floppy 

Disk auf eine andere ubertragt. 

PRINTER TEST 

Der Zeichensatz eines CBM-Druckers wird ausgedruckt. 

DISK ADDR CHANGE 

Mit Hilfe dieses Programms kann man die Geratenummer softwaremaBig 

umstellen. 

DIR 

Vereinfacht einige Floppyoperationen, wie z.B. das Anzeigen der 

Directory. 

VIEW BAM 

Liest die BAM von der Diskette und zeigt sie auf dem Bildschirm an. 
Hier bei werden die Sektornummern vertikal und die Spurnummern 
horizontal gezahlt. Die leeren Blocks erscheinen hell und die be- 
legten Blocks dunkel. 
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DISPLAY T&S 

Gibt den Inhalt jedes gewunschten Blocks (einschlieAlich BAM und 
Directory ) auf den Bildschirm oder den Drucker aus. Die Daten wer- 
den im ASCII-Code oder als Hexadezimalzahlen dargestellt. 

CHECK DISK 

Ftihrt den Befehl VALIDATE aus und gibt an, welche Blocks nicht ge- 
lesen werden konnen. Erlaubt festustellen, inwieweit eine Diskette 
zerstort ist. 

PERFORMANCE TESI 

Allgemeiner F loppy -Funktionstest. 

SEQUENTIAL FILE 

Programmbeispiel , an dem das Schreiben und Lesen eines 

sequentiellen Files gezeigt wird. 

RANDOM FILE 

Programmbeispiel, an dem das Schreiben und Lesen von Files mit 

Direkt-Zugriffs-Befehlen (BLOCK und USER-Befehle) gezeigt wird. 

SD.BACKUP.xx 

Bei diesem Programm (xx entspricht den Computer-Bezeichnungen C64, C16 Oder PLUS4) han- 
delt es sich urn ein Kopierprogramm, mit dem Sie 1 : 1 Kopien von Ihren Diskelten anfertigen 
konnen. Rufen Sie das Ihrem Computer entsprechend bezeichnete Programm auf. Sie werden 
dann aufgefordert die Quell- und Ziel-Diskette im Wechsel einzulegen. Eine Verwechslung von 
Ziel-und Quell-Diskette hat einen Datenverlust zur Folge. (Eine Quell-Diskette sollte immer 
schreibgeschutzt sein.) 

PRINT.xx.UTIL 

Bei diesem Programm (xx entspricht den Computer-Bezeichnungen C64, C16 oder +4) handelt 
es sich urn ein Druck-Programm, mit dem Sie das Listing eines Basic-Programms mit dem mo- 
mentanen Inhalt der Variablen (keine Variablenfelder) auf den Bildschirm Oder einem CBM-Druk- 
ker ausgeben konnen. Spezielle Druckmodi konnen ggf. nicht auf jeden Drucker ausgegeben 
werden. Das Programm lauft auch von einer Datasette. 

C64 BASIC DEMO / +4 BASIC DEMO 

Mit den Routinen dieser beiden Programme konnen Sie einen kleinen Systemtest durchfiihren. 
Es werden die Video- und Audio-Ausgabe, Tastatur- und Joystick-Eingaben sowie Laufwerks 
Ein/Ausgabe-Vorgange gestestet. 

LOAD ADDRESS ist ein kleines Programm, mit dessen Hilfe Sie feststellen konnen, an welche 
Speicheradresse im RAM ein Programm von der Diskette in den Computer geladen wird. Einige 
Programme konnen nur in dem Bereich laufen, von dem Sie ursprunglich einmal gespeichert 
wurden. Diese Programme mussen mit LOAD .Dateiname", 3,1 geladen werden. 

UNSCRATCH erlaubt Ihnen Dateien wieder zuganglich zu machen, wenn Sie aus Versehen ge- 
loscht wurden (siehe Seite 1 5, Scratch-Befehl) und noch keine weiteren Diskettenaktivitaten (z. B. 
Speichern einer neuen Datei) durchgefiihrt wurden. 

Mit HEADER CHANGE konnen Sie eine Diskette ohne Datenverlust umbenennen. 

Hinweis: Auf der mitgelieferten Diskette konnen sich neue Programme befinden bzw. auch eini- 
ge fehlen. Commodore behalt sich das Recht vor, den Inhalt dieser Diskette von Zeit zu Zeit neu 
zu gestalten. Anderungen befinden sich in den „HOW TO USE"-Programmen auf der Diskette. 
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10 PRINT' , :TTAB<6y i, '3*'IC WEDGE 
20 PRINT"M BV DAVID A. HOOK 
30 PRINT"M> DISK STATUS 
40 PR I NT" S OR COMMANDS 
50 PRINT")!I>$0 DIRECTORY 
60 PRINT"@*0 

70 PRIKTM/FILENAME LOAD 
80 SVS < PEEK < 43 > +256*PEEK < 44 > +2 1 5 > 
90 NEW 

RE ADV. 



10 IFA=0THENfl=i:LOAD"DOS 5.1% 8,1 
20 IFA=1THENSYS12*4096+12*256 
30 HEW 

RE ADV. 



48 



100 PR I NT "3 DUSK. COPY. FILL JIM BUTTERPIELD" 

110 DIM L2C232^Ll/iC232).N*<232^TX<232>,T$<4) 

120 DRTFl XXX,SEQ..PRG,U3R,REL 

1 30 FOR J=0TO4 •' RERDT* < J > ■ NEXTJ 

132 DRTR10..32,67,72..77,32,37,93,n7,147 

1 34 S I =2343 : SB=PEEK ( 44 > : MB=SB*256+S I 

136 FORI=0TO9:RERDfl:POKEMB+fl..SB+9:NEXT 

140 INPUT "FROM UNIT 8IIH";F 

150 GOSUB300 

i6Z F*=D* 

170 INPUT "TO UNIT 9IMI";T 

180 GOSUB800 

190 T*=D* 

200 IFF=T RNDF$=T$THENRUN 

210 GOSUB360 

220 CLOSE l^CLOSElS: OPEN 15,F, 15 :PRINT#15.. "I"+F* 

230 GOSUB330:iF E THEN STOP : G0T0226 

240 INPUT"PRTTERN *IIII";P$ 

250 FOR J= 1 TOLEN < P$ ) : I FM I D* (. P$ , J , 1 > <> " * " THENNEXT J 

260 P1=J-1 : IFPl>0THENP$=LEFT*<P$..Pn 

270 PR I NT "HOLD DOWN 'V OR 'N' KEY TO SELECT" 

280 PR I NT "PROGRAMS TO BE COPIED..." 

290 OPEN 1,F,3,"*"+F$ 

300 GO3UB830 : IFETHEN3T0P : GOTO220 

310 GET#l,R$:fl=RSC<fl$+" ") 

320 I Ffl= 1 0RR=65THENL 1 =253 : GOTO350 

330 I Ffi=67THENL 1 =76 1 : GOTO350 

340 CLOSE1 : PRINT"?????" : STOP 

350 FORJ=lTOLi:GET#l,X*:NEXTJ 

360 N=0:N1=0:R=255:2=89 

370 N$= '" " : G08UB 1 020 : T9=V- 1 28 : GOSUB 1 000 

380 Jl=»l : 2*=CHR*( 160> : F0RJ=1T016 : GET#1 , X* : N$=N$+X$ 

390 IFX$<>2*THENJ1=J 

400 NEXTJ 

410 GOSUB990:Ll?i=V 

420 GOSUB980 : GOSUB980 

430 L2=X+256*Y 

440 IFT9<1ORT9>4GOTO540 

450 IFP1>0THENIFP*OLEFT*<N*, PI >GOTO540 

460 PR I NTH*;" M ;T*kT9;' 

470 P=PEEK<151>RNDR 

480 GETZ$:IF2*=""RNDP<255GOTO520 

490 IFZ*="Y"0RZ*="N"THEH2=RSCC2$> ■ R=255 = GOTO520 

500 I FZ$=CHR$ < 1 3 ) THENR=0 : GOTO520 

510 GOTO480 

520 IF2<80THENPRINT"n T:GOTO540 

530 NaN+l'L2<N>=L2:N*c;N)=LEFT*<N* J Jl>:T/i<;N>=T9 : Ll/i<N>=Ll^ 

540 IFST>0GOTO570 

550 N 1 =N 1 + 1 : 1 FN 1 =3THENN 1 =0 = GOTO370 

560 GO3UB1000:GOTO370 

570 CL0SEl:CL0SE15: PRINT" *****" 

580 FORJ=lTON 

590 L2=L2< J) : T/.^T/.i. J) : IFL>L2GOTO640 

S00 PRINT"*** OUTPUT DISK FULL" 

£10 INPUT "DO YOU HAVE R NEW ONE"; Z* 

620 IFRSC(Z*V089THENEND 

630 GOSUB860 : GOTO590 

640 GPEN14,F,15:0PEN15,T,15 

650 PRINTN*(JJ;LEFT$<" . 'M7-LEN< N*CT>;.> ; 

660 OPENS.. F, 3, F*+" : "+N*< J)+" , "+T*<TX> 

6?fd I NPUT# 1 4 , E , E$ , E 1 , E2 : G0SUB840 : I FETHENPR INT"** " ; E$ ; E = GOTO750 
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680 I FTK=4THEN0PEN4 .• T , 4 , T*+ " : " +N* < J !•' + " .■ L > " +CHR* C L 1 V. U ) > : GOTO700 

690 0PEH4,T,4,T$+" :"+N$';j;. + ","+T$(T^J + ",W" 

700 L=L-L2 : GO3UB830- IFETHENPRINT"*** ",E$;E :GOTO750 

718 1 FTX=4THENSVS ', ME+43 > : GOTO730 

720 SVSCME+3> 

730 N$ C J > = " " : G0SUE83S : I FETHENPR I HT " **** " ; E$ J E : G0T0758 

746 PRIHT'TT 

750 CL0SE4 : CLOSES : CLOSE 15 : CLOSE 14 

760 NEXT J 

770 X=FRE C ;■ : PR I HT " ANOTHER I HPUT D I SK READY " '• I HPUT " HIM" J Z$ 

780 IFFlSC<Z*>=89GOTO220 

790 END 

808 I HPUT "DRIVE 01111"; B 

810 IFD*BOBGOTO800 

820 D*=CHR* '-. D+48 "; : RETURN 

830 INPUT#15,E,E*,E1,E2 

840 IFE=0THENE=(ST AND 191 > :E*="*ST*" 

858 RETURN 

860 OPEN 1 5 , T , 1 5 : PR I NT " WANT TO HEW THE OUTPUT D I SK " : I HPUT " HIIII" ; Z* 

878 I FRSC (. Z$ > O 89G0T09 1 

880 INPUT "DISK HflME, ID" i X*,V$ 

890 PRIHT#15,"H"+T$+":"+X$+","+Y$ 

930 GOSUE830 : IFETHEHSTOP : GOTO860 

910 PRIHT#15,"I"+T$:OPEH1,T,0.. "$"+T*+" : \*$y.&" 

920 GOSUE830 : IFETHEHSTOP : GOTO860 

930 GOSUB980 : GOSUB980 

940 Q=Q+ 1 : GETtt 1 , )<$ ■ I FX$<> " " GOTO940 

950 GOSUE930 

960 L=X+Y*256 : PRINT" (" iL.i "BLOCKS FREE >" 

970 CLOSE l: CLOSE 15 RETURN 

980 GET#1,X* 

990 GET#1,X$ 

1000 GET#1,X* 

1010 X=LEN (. 'At ':< ■ I FXTHEHX=RSC C X* ) 

1020 GET#1 , X$ ■ Y=LEN<X$) : IFYTHENV=RSC<X*> 

1030 RETURN 

READY. 



50 



100 REM PRINTER TEST FOR VIC AND 64 

110 NL*=CHR*a0>CR*=CHR$a3> 

120 B3*=CHR*<8):30*=CHR*a4>:SI$=CHR$<:i5) 

130 P0*=CHR*a6) ••ESC$=CHR*<27> :SUB*=CHR$<26> 

1 40 CD*=CHR* < 1 7 ) : CU*=CHR* < 1 45 ) 

150 RVS*=CHR*<18) :0FF*=CHR*<146) 

160 : 

170 0PEN4,4:PRINT#4PRINT#4 

180 PRINT#4,S0*" PRINTER TEST" 

190 : 

200 PRINT#4:pRINT#4 

210 PRIHT#4,S0*"1. CHECK GRAPHIC C CURSOR UP) M0DE"SI$ 

220 GOSUE840 : CL0SE4 

230 : 

240 0PEN4,4,7 :pRINT#4 

250 PRINT#4,80*"2. CHECK BUS I NESS (CURSOR BONN) MODE"SI$ 

260 GOSUB840:CLOSE4 

270 •• 

280 0PEN4,4:PRINT#4:PRINT#4,S0$"3. CHRSU0) TEST "SI* :PRINT#4 

290 F0RI=48T052 : PR1NT#4, P0*"25"CHR*<I ) ; NL* : NEXT 

300 : 

310 PRINT#4 PRINT#4,S0*"4. CHR$<13) TEST "SI* PRINT#4 

320 F0RI=53TO57:PRINT#4.P0$"25"CHR*a);CR*:NEXT 

330 • 

340 PRINT#4:pRINT#4,S0*"5. CHR*<3) TEST"SI*:PRINT#4 

350 F0RJ=1T02 

360 f\t= " " : FOR I = 1 28T0255 : fi*=R*+CHR* < I ) : NEXT 

370 PR I NT#4 , BS* fi$ : PR I NT#4 , S I * : NEXT J 

330 F0RJ=1T02 

390 B*=" " : F0RI=255T0128STEP-1 = B*=B$+CHR$< I ) : NEXT 

400 PRINTK4 , BS$B* : PRINT#4, SI$ : NEXT J 

410 : 

420 PRINT#4:PRINT#4,S0*"6. CHR*<14> & CHR$<15) TEST"SI$ : PRINT#4 

430 F0RJ=2T04STEP2 

440 fi*= " " : FOR I = J* 1 6T0J* 1 6+3 1 : fl*=fi*+CHR$ < I ) : NEXT 

450 PRINT#4, SO*R*CR*SI*fl* : NEXT 

460 '• 

470 PRINT#4:pRINT#4,S0*"7. CHR*C16) TEST"SI* :PRIHT#4 

430 FOR J=0TO7 : PR I NT#4 , PO*CHR* \ 48+ J ) CHR* < > " COMMODORE " : NEXT 

490 = 

500 PRINT#4:pRINT#4,80$"3. CHR*<26> TEST "SI $ : PRINTtM 

510 FOR J=0TO3:PRINT#4,BS*SUB*CHR*(10+10*JT2)CHR$<255) : NEXT 

520 : 

530 PRINTS PRINT#4,30*"9. CHR$':27> TEST"SI* : PRINT#4 

540 3P*=" 

550 FOR I=0TO360STEP10 

560 I*=RIGHT*<SP*+3TR*Ci;s4) 

570 VO=220+120*SIH<I*1T/180) 

580 VH= I NT C VO/256 > : VL=VO- VH*256 

596 PRINT#4, I*£SC$PO*CHR*<VH)CHR$<VL)"#" 

600 NEXT:CL0SE4 

610 : 

620 0PEN4,4 

630 PRIHT#4'PRIHT#4,3O*"10. CHR$C17) TEST"SI$'PRINT»4 

646 FORJ=10TG13 

650 fl*= " " : FOR I = J* 1 6T0 J* 1 6+ 1 5 : fl$=fl*+CHR* a ) : NEXT 

660 PRINT#4,fl$" "CB*fi$ 

670 NEXT 

680 : 

690 PRINT#4PRINT#4,S0*"11. CHR*<145> TEST" SI* : PRINT#4 : CL0SE4 
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700 

710 
720 
736 
740 
750 
760 
770 
780 
790 
880 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
913 
92Q 
930 
94m 
950 



0PEH4 , 4 , 7 : FOR J= 1 0TO 1 3 

fl*="" F0RI=.T*l6T0J*16+15:fl*=l : i*+CHR*a> : NEXT 

PRINTER*" "CU*fl* 

NEXT : CL0SE4 

0PEN4,4 

PRIHT#4-PRIHT#4,S0$"12. CHR*<18> & CHR*(146> TEST "SI*-PRINT#4 

ft*=" COMMODORE " 

FOPI=0TO3PRINT#4,RVS*fl*OFF*" "fl*" "RVS*fl*OFF*" "fl$" "RVS*fi* 

NEXT 

PR I NT#4 : PR I HT#4 : CMD4 , SO* " PROGRAM L. I ST " S I * : L I ST 
END 



PRINT#4 
F0RI=32T047 



F0RJ=1T08 

F0RJ=1T03 

F0RJ=1T08 

F0RJ=1T03 

F0RJ=1T08 

F0RJ=1T08 

F0RJ=1T08 

F0RJ=1T08 

NEXT 

PRINT#4: RETURN 



PRINT84, 
PRINT#4, 
PRINT#4, 
PRINT#4, 
PRINT#4, 
PRINTS4, 
PRINT#4 J 
PRIHT#4, 



CHR*CI>; :NEXT:PRINT#4,' 



CHR$a + 16 
CHR$a+32 
CHR*a+48>; 

CHR*a+i2s:' 

CHR*a + 144); 

CHR*a+i60>; 
CHR$a+i76;'.; 



NEXT:PRINT#4," 
NEXT:PRINTS4.. " 
NEXT:PRINT#4/" 
HEXT^PRIHTfH.." 
NEXT : PRINT#4," 
NEXT:PRINT#4," 
NEXT:pRINT#4," 



RERDV. 
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100 P0KE59468,12 

110 PRINT'TWHMMWDRIVE ADDRESS CHANGE PROGRAM" 

111 PRINV'MTURN OFF ALL DRIVES NOW" 

112 PR I NT "EXCEPT THE ONE TO BE CHANGED." 
420 PRINT"»0LD DEVICE ADDRESS SIM"; 
130 INPUT OB: IF 0D<8 OR 0D>15 GOTO 120 
140 PRINT")!NEW DEVICE ADDRESS 9IMI"; 
150 INPUT ND- IF ND-C8 OR HDM5 GOTO 140 
160 GOSUB 300: REM FIND DRIVE TVPE 

170 GOSUB 600: REM CHANGE ADDRESS 

180 PRINT"BTHE SELECTED DRIVE HAS BEEN CHANGED..." 

185 PR I NT "NOW TURN ON THE OTHER BRIVE(S)" 

190 END 

300 rem: i dent i fv drive tvpe 

310 cl0se15:0peh15,0d,15 

320 print#15,"m-r"chr*<255)chr*<255> : get#15,c*:c=asc<c*+chr$<0)) 

330 if st then 1800 

340 if c=254 then mt=119: rem: 2831 v2.6 

2040 VI. 2 
4840 V2.1 
8050 V2.5 



REM 
REM 
REM 



358 IF C=226 THEN MT=50: 

368 IF C=213 THEN MT=12: 

3?0 IF C*242 THEN MT=12: 

380 IF C=198 THEN 400 

390 RETURN 

400 PR I NT# 1 5 , " M-R " CHR* < 234 ) CHR* < 1 6 ) ■ GET# 1 5 , ZB* : ZB=ASC < ZB*+CHR* < 8 > > 

410 IF 2B=0 THEN MT=12 : REM: 4040 V2.7 

420 IF 2B=1 THEN 440 

430 IF ST THEN 1000 

440 PR I NT# 1 5 , " M-R " CHR* < 1 72 > CHR* < 1 6 > = GET# 1 5 , ZC* : ZC=ASC < ZC*+CHR* < > > 

450 IF ZC=1 THEN MT=12 : REM: 8050 V2.7 

460 IF ZC=2 THEN MT=12 : REM: 8250 V2.7 

470 RETURN 

600 CL0SE15: 0PEN15,0D, 15 

610 PR I NT# 1 5 , " M-W " CHR* < MT > CHR* < > CHR* < 2 ) CHR* < ND+32 ) CHR* < ND+64 ) 

630 RETURN 

1000 PRINT" DEVICE ERROR " 

1010 END 

READV. 
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4 0PEN2,8,15 

5 PR I NT "CI': GOTO 10000 
16 OPEH1,8,0,"$0" 
20.GET#1,A*,B* 

30 G£T#1,A*,B* 

40 GET#1,A*,B$ 

50 C=0 

S0 IF A*0"" THEN C=ASC<A*> 

70 IF BSO"" THEN C=C+fl3C<B*>*256 

80 PRINT" a"MID$>;STR$<:C> , 2) iTflE(3); "H" ; 

90 GET#1,B*=IF STO0 THEN 1000 

100 IF B*OCHR*<34) THEN 90 

110 GET#1..B*:IF B$OCHR*<34>THEH PRINTB*.-GOTO110 

120 GET#1,B$:IF B$=CHR*<32> THEN 120 

130 PRINT TflB<18); -C$="" 

140 C*=C*+B*:GET#1.B*:IF B*C> " THEN 140 

150 PRINT" S" LEFT* C.C*, 3 > 

160 GET T*:iF T*0"" THEN GOSUB 2000 

170 IF ST=8 THEN 30 

1000 PRINT" BLOCKS FREE" 

1010 CLOSE l: GOTO 10000 

2000 IF T$="G" THEN CLOSE 1: END 

2010 GET T*:IF T*="" THEN 2O0O 

2020 RETURN 

4000 REM DISK COMMAND 

4010 C*="":PRINT">"; 

4011 GETE*:IFB*="" THEN4011 

4012 PRINTS*;: IF B*=CHR$(13> THEN 4020 

4013 C*=C$+B$ : GOTO 4011 
4020 PRINT#2,C$ 

5000 PR I NT "3".; 

5010 GET#2..fl$:PRINTfl*; : IF fl*OCHR*< 13>GOTO5010 

5020 PRINT"!" 

10000 PRINT "D-B I RECTORY" 

10010 PRINT ">-BISK COMMAND" 

10020 PRINT "Q-QUIT PROGRAM" 

10030 PRINT "S-DISK STATUS " 

1 1 00 GETA* : I FA$= " "THEN 1 1 00 

10200 IF A*="D" THEN 10 

10300 IF A$="." OR A*=">" OR A*=">" THEN 4000 

10310 IF A$="Q" THEN END 

10320 IF A*="S" THEN 

10993 GOTO 10100 

READY. 
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100 REM ******************************** 

101 REN * VIEW BAM FOR VIC & 64 DISK * 

102 REM ******************************** 
105 0PEN15.3.15 

110 PRINT#15,"I0"-HU$="N/fi N/A N/A N/A N/A"Z4=1 
128 0PEN2,8-,2, "#" 

130 y$= " mmmmmiM>MMM!ti?w?wr 
140 x*= " »ft»»»»»»»i»i»i»»l" 

150 bef fnscz) = 2t<s-ihtcs/8>*8) and < sb < i nt < s/8 > > > 
160 print#15,"U1"j2;0;is;0 

170 PRINT#15,"B-P";2;J 

180 PR I NT "3"i 

190 Y=22 : X=1:GOSUB430 

200 FORI=0TO20: PRINT :PRINT"m"RIGHT$<STR*U> + " ",3>:. : NEXT 

210 GET#2,A$ 

220 GET#2,A* 

230 GET#2,A* 

240 TS=0 

250 FORT= 1 TO 1 7 ■ GOSUB450 

260 Y<=22 : X=T+4 : GOSUB430 : GOSUB540 : NEXT 

270 FORI=1TO2000 : NEXT : PR I NT "a" 

280 V=22:X=i:GOSUB430 

290 FGRI=0TO20:PRINT:PRIHT"rn"RIGHT*<STR*a> + " ",3>; -NEXT 

300 F0RT=18TG35 

310 GOSUB450 

320 V=22 = X=T- 1 3 = GOSUB430 : GOSUB540 : NEXT 

330 FORI=1TO1000:NEXT 

340 PRINT'\TSMMM«" 

350 PRIHT#15,"B-P";2;144 

360 N*= " " : FOR I = 1 TO20 = GET#2 , A* : N$=N*+A* : NEXT 

370 PRINT" "N*" "TS-17; "BLOCKS FREE" 

380 FORI =1TO4000: NEXT 

390 PR I NT "IT 

400 INPUT"M«)SWPNOTHER DISKETTE NINI";R$ 

410 IFA$="V"THENRUN 

420 IFA*0"V"THENEND 

430 PRINTLEFT*CV$,VJLEFT*CX*,XV'II"; 

440 RETURN 

450 GET#2,SC*:SC=fl3C<RIGHT*c:CHR*<0>+3C*.l>;' 

460 TS=TS+SC 

470 GET#2 , A$ : I F A$= " " THENA*=CHR* i. > 

480 SB<0>=fl8C<fl$) 

490 GET#2,A*: IFfl*=""THENfi*=CHR*<0) 

500 SB<l)=flSC<FI*) 

510 GET#2.fl*: IFfl*=""THENfl*=CHR$<0> 

520 SB<2)=flSC<fl*> 

530 RETURN 

540 PRINT"]MI"RIGHT*<STR*<T> , 1 > ; "im" ; 

550 REM PRINTT" "SC" "SB<0;" "SB<1>" "SB<2>=CHR*(0> 

560 IFT>24flNBS=13THEN:PRINTMIB*<NU$,Z4,l>; :GQTO660 

570 FORS=0TO20 

580 IFT<18THEN620 

590 IFT>30flNDS=17THEN:PRINTMID$<HU$,Z4,l); :G0T0669 



600 IFT>24fiNDS=18THEN:pRINTMID*<NU*,Z4, 1) 

610 1 FT>24ANBS= 1 9THENPR I NTM I B* < NU* , Z4 , 1 > ; 

620 IFT>17flNDS=20THEHPRINTMID*';NU*,Z4, l).i 

630 PRINT" fl"; 

640 IF FNS<S>=0 THEN PRINT"4" ; -GOTO660 

650 PRINT"B+"j :REMRIGHT*<STR*<;S>,D;Z4.. l)j : G0T072 

66Q PR I NT "TIB"; 

670 NEXT 

680 RETURN 
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: GOTO660 

GOTO660 

Z4=Z4+l:GOTO660 



1 REM CHECK DISK — VER 1.4 

2 DN=8-REM FLOPPV DEVICE NUMBER 

5 DIMT<100>DIMS<100>:REM BAD TRACK/ SECTOR ARRAV 

9 PRIHT"nWMS " 

10 PRINT" CHECK DISK PROGRAM" 

12 PRINT" " 

20 D*="0" 

38 0PEN15,DH,15 

35 PRINT#15,"V"D$ 

45 N5i=RND<TI>*255 

50 A$="" •FORI = lT0255 : A*=fl*+CHR*'::255AND<I+NX>> : NEXT 

69 GOSUB900 

70 0PEN2,DH,2,"#" 

80 PRINT:PRINT#2,A$, 

85 T=l:S=0 

90 PRINT#15.. "B-fl:"D*JTJS 

1 00 I NPUTtt 1 5 , EN , EM$ , ET , ES 

110 IFEN=0THEN13Q 

115 IFET=0THEN200:REM END 

126 PRINT*15, "E-fl: "D*;ET.;ES:T=ET:S=ES 

130 PRINT#15.. "U2:2.. "D$;T;S 

134 NB=NB+l: PRINT" CHECKED BLOCKS"HB 

135 PRINT" TRACK lllll"T.;" SECTOR MirS'TTT 
140 IHPUT#15,EH,EM*..ES,ET 

150 IF EN=0THEN85 

is© Ta>=T:scj;'=s:j=j+i 

165 PRINT"M«BAD BLOCK : 111", T;S"" 

170 G0T085 

200 PRINT#15,"I"D$ 

210 GOSUB900 

212 CL0SE2 

215 IF,T=0THENPRINT"M«WMHQ BAD BLOCKS !": END 

217 GPEN2,DN,2,"#" 

218 PR I NT " MB AD BLOCKS " , " TRACK. ■ V SECTOR " 
220 FORI=0TOJ-1 

230 PRINT#15 J "B-A:";D3 : /Ta>.;SCI> 

240 PRINT, , TCI ),S(D 

250 NEXT 

260 PR I NT "M" J "BAD BLOCKS HAVE BEEN ALLOCATED" 

270 CL0SE2:END 

900 IHPIJT#15,EH,Et'1$,ET,ES 

910 IF EN=0 THEN RETURN 

920 PRINVMRERROR #"EN,EM*,'ET,ES"" 

930 PRINT#15,"I"D* 

READV. 
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100 
110 

120 
130 
140 
150 
160 
165 
170 
180 
190 

200 

210 
20 
240 
251 
253 
254 
255 
256 
260 
265 
276 
280 
290 

300 

310 
320 
330 
1340 
1341 
1350 
1360 
J370 
1390 

1400 

|410 
420 
1428 
1430 
1431 
432 
433 
434 
436 
438 
440 
442 
444 
446 
448 
50 
452 
154 
458 



REM****************************** 
REM* DISPLAY ANY TRACK * SECTOR * 
REM* ON THE DISK TO THE SCREEN * 
REM* OR THE PRINTER * 

REM****************************** 

PRIHT":TOM " 

PRINT "DISPLAY BLOCK CONTENTS" 

PRINT" " = 

REM****************************** 

REM* SET PROGRAM CONSTANT * 

REM****************************** 

SP*=" " : NL*=CHR*<0> : HX$="0123456789ABCBEF" 

FS$="":F0RI=64 TO 95 : FS$=FS$+ " a" +CHR*<I >+"■": NEXT I 

SS$=" "^FOR 1=192 TO 223 :SS*=SS*+"3"+CHR$< I )+"!" : NEXT I 

DIM fl*a5),NB<2:» 

D*="0" 

PRINT" S&BCREENJMIMIIItJR JMISPH? INTER" 

GETJJ*:IF JJ*="" THEN254 

IF JJ*="S"THENPRINT" M33CREENS" 

IF JJ*="P"THENPRINT" MSPR INTER"" 

OPEN 1 5 .. 8 , 1 5 , " I" +B$ : GOSUB 650 

0PEN4..4 

OPEN 2,8,2, "#" : GOSUB 650 

REM****************************** 

REM* LOAD TRACK AND SECTOR * 

REM* INTO DISK BUFFER * 

REM****************************** 

INPUT"KWITRfiCK, SECTOR" ;T,S 

IF T=0 OR T>35 THEN PRIM^IS, " I "D$:CL0SE2CL0SE4:CLCiSE15:PRIMT M ENB'':EME 

IF JJ*="S" THEN PRINT"J»irTRACK"T" SECTOR "S"M" 

IF JJ*="P" THEN PRINT#4:PRINT#4,"TRACK"T" SECT0R"S:PRINT#4 

PRINT#15, "Ui : 2, "B$; T; S : GOSUB650 

REM****************************** 

REM* READ BYTE OF DISK BUFFER * ^ — ^. 

REM****************************** \ 

PRINT#15,"B-P:2,1" 

PRINT#15, "M-R"CHR*C0)CHR*<5> 

GET# 1 5 , A* < > : I FAS (. > = " " THEN fit <■. 6 > =NL* 

IF JJ*="S"THEN430 

IF JJ*="P"THEN460 

REM*.***************************** 

REM* READ ft CRT DISPLAY * 

REM* REST OF THE DISK BUFFER * 

REM****************************** 

K=l:NB<l)=flSCCfl*<9)) 

FOR J=0 TO 63: IF j=32 THEN GOSUB 710: IF Z$="N"THEN J=80:GOTO 458 

FOR I=K TO 3 

GET#2,A$<I>:IF A*a> = "" THEN A*<I>=NL$ 

IF K=l AND K2 THEN NB<2>=flSC<A$'CI >> 

NEXT I=K=0 



fl|=" " : B$=" : " : N=J*4 : GOSUB 790 : A$=A$+" : " 

FOR 1=0 TO 3:N=ASC<A*<I>>:G0SUB 790 
C$= A$ < I > : GOSUB 850 : B$=B$+C* 
NEXT I : IF JJ$="S" THEN PRINTAfB* 
NEXT J:G0T0571 
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460 REM****************************** 

462 REM* READ & PRINTER DISPLAY * 

464 REM****************************** 

466 K=l :NB<l>=fl3C«:fl*<0>) 

468 FOR J=0 TO 15 

470 FOR I=K TO 15 

472 GET#2,fl*<I>:iF fl*Cn = " M THEN fl$a>=HL$ 

474 IF K=l AND I<2 THEN NB<2>=H3C<f=l*C I >> 
476 NEXT l:K=0 

475 fl*="":E*=":":N=J*16:G0SUE 790 : A$=A*+" : " 

480 FOR 1-8 TO 15-H=flSC<fl*a) > -GOSUB 790- IF Z*= "N" THEN J=40 = GOTO 571 

432 C$=A* '■. I > : GOSUB 850 = B*=B$+C$ 

484 NEXT I 

486 IF JJ$="P" THEN PRIHT#4,A$B$ 

488 NEXT J:G0T0571 

57 1 REM****************************** 

572 REM* NEXT TRACK AND SECTOR * 

573 REM****************************** 

575 PR I NT "NEXT TRACK AND SECTOR "NB a *J NBC 2) "«" 

588 PR I NT "DO VOU WANT NEXT TRACK AND SECTOR" 

598 GET 2$ IF 2$="" THEN590 

600 IF Z*="Y" THEN T=NB< 1 ) ■ S=NBC2> : GOTO330 

610 IF Z*="N" THEN 320 

620 GOTU 590 

630 REM****************************** 

640 REM* SUBROUTINES * 

650 REM****************************** 

e&i REM* ERROR ROUTINE * 

670 REM****************************** 

680 INPUT#15,EH,EM*..ET,ES:IF EN=0 THEN RETURN 

63& PR I NT "SID I SK ERRORS" EH, EM$, ET, ES 

700 END 

710 REM****************************** 

720 REM* SCREEN CONTINUE MESSAGE * 

730 REM****************************** 

740 PR I NT " JMMKJONT I NUE (. V/N > " 

750 GETZ*:IF Z*="" THEN 750 

768 IF Z*="N" THEN RETURN 

770 IF Z*<>"V" THEN 750 

780 PRINT'TTrRACK" T " SECTOR "3 "V ■■ RETURN 

790 REM****************************** 

800 REM* DISK BYTE TO HEX PRINT * 

810 REM****************************** 

820 A 1 = I NT ( NX 1 6 ')■ A*=A$+M I II* ■'. HX$ , A 1 + 1 , 1 ) 

830 fl2=INTCN-16*fil) : fi*=fl*+MID*<HX*>fl2+l/l> 

840 A$=Af +SP$ : RETURN 

850 REM****************************** 

860 REM* DISK BYTE TO ASC DISPLAY * 

870 REM* CHARACTER * 

888 REM****************************** 

890 IF ASC'X$K32 THEN C*=" " : RETURN 

910 IF ASC <C* XI 23 OR ASC<C*>>159 THEN RETURN 

920 C*=M I D* (. SS* , 3* ( ASC (. C* > - 1 27 > , 3 > : RETURN 

READY. 
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1000 
1010 
1020 
1030 

1040 
1050 
1060 

1070 
1030 

1090 

1100 
1110 

1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1276 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 

1400 

1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 

1500 



REM PERFORMANCE TEST 2.0 

REM VIC-20 AND COMMODORE 64 
REM SINGLE FLOPPY DISK DRIVE 

OPEN 1,8,15:0PEN15..8,15 

LT=35 

LT*=STR*<CLT> 

NT=30 

PR I NT "SB : " 

PRINT" PERFORMANCE TEST" 

PR I NT " " 

PRW-IT 

PRINT" INSERT SCRATCH" 

PRINT 

PRINT" DISKETTE IN DRIVE" 

PRINT 

PR I NT "W PRESS SRETURNB" 

PRINT 

PRINT" WHEN REABYM" 

FOR 1=0 TO 50: GET fi$ : NEXT 

GET A*: IF A$OCHR*a3) THEN 1210 



TI*= 

TT=18 

PRINT#1, "H0-TEST DISK, 00" 

Cl*=" DISK HEW COMMAND "+CHR$a3> 

C2*="a WAIT ABOUT 80 SECONDS" 

CC*=C 1 $+C2* : GOSUB 1 340 

IF TKNTTHEN1370 

PRINT"M5YSTEM IS" 

PR I NT "M NOT RESPONDING" 

PRINT" CORRECTLY TO COMMANDS" 

GOSUB 1880 



PRINT"MDRIVE PASS" 

PRINT" MECHANICAL TESTM" 

TT=21 

OPEN 2,8,2.. "OBTEST FILE,S,W 

CC$="QPEN WRITE FILE" 

CH=2=CC*=" WRITE DATA" 

CC** "CLOSE "+CC* 

OPEN 2, 8, 2, "0: TEST FILE,S,R 

CC*="OPEN READ FILE" 

CH=2: GOSUB 1990 

PRINT#1,"S0:TEST FILE" 

CC*= "SCRATCH F I LE»" : TT= 1 



GOSUB 1840 
GOSUB 1930 
GOSUB 1840 

GOSUB 1840 



GOSUB 1840 
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1518 TT=21 

1520 OPEN 4,8,4.."*" 

1 530 NN?i= k 1 +RNB \ T I > *254+NNX > ANB255 = PR I NT* 1 , " B-P " ; 4 ; HUX 

1540 NN*="":FOR 1=1 TO 255 : NN*=NN*+CHR*<I> 'NEXT 

1550 PRINT* 4,NN$; 

1560 PRINT* 1,"U2:";4.;0;LT.;0 

1570 CC*=" WRITE TRACK "+LT$-GOSUE 1848 

1580 PRINT#1 , "U2 ; " ; 4; 8, 1 J 

1590 CC$=" WRITE TRACK 1" -GOSUB 1840 

1600 PR I NT* 1 , "Ul : " .; 4; 0; LT; 

1618 CC$="REAB TRACK"+LT$ : GOSUB 1846 

1620 PRINT#1 , "Ul : " ; 4.: 8; 1 ;0 

1630 CC$="REAB TRfiCK 1" : GOSUB 1840 

1640 CLOSE 4 

1650 : 

1660 ■ 

1670 PR I NT "B UNIT HAS PASSED" 

1680 PRINT" PERFORMANCE TEST!" 

1690 PRINT"B PULL DISKETTE FROM" 

1700 PR I NT "M DRIVE BEFORE TURNING" 

1718 PRINT" POWER OFF." 

1720 END 

1730 = 

1740 : 

1750 PRINT" HCONTINUE (V/hO?", 

1760 FOR 1=0 TO 50: GET A*: NEXT 

1770 GET A* IF A*="" THEN 1776 

1780 PRINT fi*"M" 

1790 IF A$="N" THEN END 

1800 IF A*="V" THEN RETURN 

1810 GOTO 1768 

1820 ■ 

1830 : 

1840 PRINT CC* 

1850 INPUT* 1,EN,EM$,ET,ES 

1 860 PR I NTTAB < 1 2 ') " "EN ; EM* , ET .: ES i " " 

1870 IF EN<12 THEN RETURN 

1886 PRINT"M UNIT IS FAILING" 

1890 PR I NT "M PERFORMANCE TEST" 

1900 TM*=TI$: GOSUB 1756 :TI$=TM$: RETURN 

1910 : 

1920 = 

1930 PRINT "WRITING DATA" 

1940 FOR 1=1080 TO 2000:pRINT#CH,l:HEHT 

1956 GOSUB1850 

1960 CLOSE CH : RETURN 

1978 = 

1980 : 

1990 PRINT"READING DATA" 

2008 GETA$ 

2010 FOR 1=1800 TO 2800 

2028 INPUT* CH,J 

2830 IF JO I THEN PRINT" 5RE AD ERROR :■": GOSUB 1850 

2040 NEXT 

205S GOSUB 1850 

2060 CLOSE CH: RETURN 

READV. 
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BESCHEINIGUNG DES HERSTELLERS 

wird bestatigt, dass die Floppy Disk 

COMMODORE 1541 -n 

;instimmung mit den Bestimmungen der 

Amtsblattverfiigung Nr. 1046/19B4 

-stort ist- 

jtschen Bundespost wurde das Inverkehrbr ingen dieses 
angezeigt und die Berechtigung zur Oberprufung der 
jf Einhaltung der Bestimmungen eingeraurat - 

COMMODORE BtJROMASCHlNEN GMBH 



CERTIFICATE OF THE MANUFACTURER 



we certify that our device Floppy Disk 



COMMODORE 1541-n 



r>nds to the regulations 

Amtsblattverfiigung Nr. 1046/1984 

Enated of radio interference. 

can Bundespost has been informed that this unit is on 
rket and has got the right to check on the mass 
Con if the limits are kept. 



COMMODORE BUSINESS MACHINES LIMITED 



P/N: 354139-02 



